I am trying to use a variable to categorize my xtick labels. A typical example of my intended plot is at the bottom left plot in the image below. Creating a different subset where different sticks belong to a different category.
I am trying to use a variable to categorize my xtick labels. A typical example of my intended plot is at the bottom left plot in the image below. Creating a different subset where different sticks belong to a different category.
tgc <- structure(list(GROUP = structure(c(4L, 4L, 4L, 4L, 4L, 4L, 4L,
4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L,
4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L,
4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L,
4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L,
4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L,
4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L,
4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L,
4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L,
4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L,
4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L,
4L), levels = c("LLL", "LRL", "RLR", "RRR"), class = "factor"),
condition = c(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
2, 2, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3,
3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3,
3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3,
3), Tra = structure(c(1L, 2L, 3L, 4L, 5L, 6L, 7L, 8L, 9L,
10L, 11L, 12L, 13L, 14L, 15L, 16L, 17L, 18L, 19L, 20L, 21L,
22L, 23L, 24L, 25L, 26L, 27L, 28L, 29L, 30L, 31L, 32L, 33L,
34L, 35L, 36L, 37L, 38L, 39L, 40L, 41L, 42L, 43L, 44L, 45L,
46L, 47L, 48L, 49L, 50L, 51L, 52L, 53L, 54L, 55L, 56L, 1L,
2L, 3L, 4L, 5L, 6L, 7L, 8L, 9L, 10L, 11L, 12L, 13L, 14L,
15L, 16L, 17L, 18L, 19L, 20L, 21L, 22L, 23L, 24L, 25L, 26L,
27L, 28L, 29L, 30L, 31L, 32L, 33L, 34L, 35L, 36L, 37L, 38L,
39L, 40L, 41L, 42L, 43L, 44L, 45L, 46L, 47L, 48L, 49L, 50L,
51L, 52L, 53L, 54L, 55L, 56L, 1L, 2L, 3L, 4L, 5L, 6L, 7L,
8L, 9L, 10L, 11L, 12L, 13L, 14L, 15L, 16L, 17L, 18L, 19L,
20L, 21L, 22L, 23L, 24L, 25L, 26L, 27L, 28L, 29L, 30L, 31L,
32L, 33L, 34L, 35L, 36L, 37L, 38L, 39L, 40L, 41L, 42L, 43L,
44L, 45L, 46L, 47L, 48L, 49L, 50L, 51L, 52L, 53L, 54L, 55L,
56L), levels = c("1", "2", "3", "4", "5", "6", "7", "8",
"9", "10", "11", "12", "13", "14", "15", "16", "17", "18",
"19", "20", "21", "22", "23", "24", "25", "26", "27", "28",
"29", "30", "31", "32", "33", "34", "35", "36", "37", "38",
"39", "40", "41", "42", "43", "44", "45", "46", "47", "48",
"49", "50", "51", "52", "53", "54", "55", "56"), class = "factor"),
Tra2 = structure(c(2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 3L, 3L,
3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L,
3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L,
3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 1L, 1L, 1L, 1L, 1L, 1L, 1L,
1L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 3L, 3L,
3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L,
3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L,
3L, 3L, 3L, 3L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L,
2L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L,
3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L,
3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L,
1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L), levels = c("Post-test",
"Pre-test", "Training"), class = "factor"), N = c(8, 8, 8,
8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8,
8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8,
8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8,
8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8,
8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8,
8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8,
8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8,
8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8,
8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8), Abs_IDE = c(30.496394843125,
18.958457243625, 36.256053078875, 39.26766248875, 27.171807236625,
42.793501522, 30.73059134, 26.021594462875, 39.19461037,
27.85434321, 34.252849388, 24.907907749, 31.3952223825, 29.651282096375,
25.804586697875, 28.25756226, 27.5170143095, 22.470688528625,
23.444000582625, 26.864558619375, 31.054312496, 18.570278336625,
19.34950093775, 20.354325672, 20.181005940625, 25.47871695,
22.569523749125, 25.06690353675, 28.871343299125, 25.912732482625,
24.498242925875, 30.9332751615, 23.468351290875, 31.83926467375,
20.287719328375, 24.440230947125, 29.963544096125, 21.3226243465,
34.35311700225, 30.42835610375, 28.556216508, 20.30777285075,
24.92796127075, 25.339774687375, 18.314595921, 32.780347852875,
30.787887119625, 28.615660881, 14.963509016, 16.487576753,
29.9535173325, 15.497792160875, 26.879598761875, 41.214286598625,
25.949258541875, 32.9142767375, 21.551807463125, 27.4912312085,
27.596512202, 30.91823502125, 28.88781583375, 27.9417192735,
24.75392534075, 18.919066395875, 15.25428509825, 21.624143384625,
22.25941034, 25.3132753885, 26.103957145, 19.86158196725,
16.49473872425, 19.088805143125, 23.832179489625, 14.7371906875,
21.35413702275, 16.66089648475, 16.238340110375, 28.5096636875,
15.19627311975, 14.881862532625, 22.856002644875, 20.11798058125,
19.707599562, 15.952577409875, 20.3944327175, 16.89151199825,
17.90278250575, 17.494550075875, 17.72301699925, 21.208748983,
17.63134375075, 14.19502937375, 11.70552775375, 11.283687577875,
14.870403375, 19.1453847235, 24.088578101125, 14.157787117375,
18.133398019125, 13.8605652615, 18.01880646075, 21.571144789,
15.754190774, 20.294881300125, 19.577251662875, 10.31395650825,
25.500202868, 37.702055314875, 8.761957082, 18.981375555625,
12.988237019125, 19.831501684, 30.97266601025, 27.973231953375,
33.7472141325, 32.372115426375, 42.1904634425, 31.81419777125,
20.7883412025, 36.011829819, 26.772885371125, 22.9842019515,
34.237093047, 21.51886239125, 31.489044223875, 28.764629907625,
29.046811622875, 20.251193269625, 21.597644088625, 43.288393817125,
50.14813102375, 21.08986024, 26.35462618275, 38.689691313625,
30.337399056, 28.128646754625, 21.336948291875, 30.527907520875,
40.37776821825, 23.486972418625, 32.974437306875, 28.484596784375,
33.46932960375, 23.825733713375, 19.664627727125, 22.56880754975,
36.818984112125, 27.838586872375, 17.507441627, 18.924079775875,
34.340941648125, 26.48497408125, 32.95509998125, 33.8152528705,
33.44999227775, 36.515316480125, 44.40136433325, 33.8080908975,
27.071539623375, 43.97451077625, 39.998899875, 29.151376417875,
30.814386420875, 36.72516227375, 34.279348684375, 34.918196627625,
27.55998614275, 34.47558673025), sd = c(21.9066345668576,
15.6702493351409, 18.0226943860608, 13.0568890750794, 11.4456408362655,
25.067436348162, 16.6376988230911, 23.6771176384942, 15.5865654947913,
13.2714246169937, 16.6159058207624, 20.2199624516716, 20.8124147772985,
15.3403230242927, 13.7080333372947, 12.3294855644839, 13.7918777414743,
14.2569493829157, 13.3618579477082, 17.5449440865942, 20.2699005301635,
10.6699714660252, 15.2827376902255, 14.6652193657941, 10.6333274216636,
14.4317026669484, 11.5484819610334, 19.8759466138558, 23.6828623666388,
19.4286243165538, 23.1336534382271, 18.1759690141204, 16.8056244396697,
11.3363402883236, 11.9523345302393, 14.0471644706609, 21.3032492955771,
15.9829614252001, 22.9738926800209, 14.9730862121928, 19.1738687691444,
12.7130962849752, 18.0215052581757, 22.6533052065849, 15.3168320192677,
15.3222849735454, 12.1649497583162, 18.1278936103951, 11.6742657721594,
13.7601117988971, 17.0668385253681, 20.4536317840027, 18.9140349147,
27.1612020410396, 16.6482651539234, 14.0090140746432, 14.1880408646564,
15.888378503935, 20.6946370767654, 17.9847786289361, 11.711683171065,
18.0833475103648, 21.8321458720306, 14.9934167449432, 13.5082612061595,
15.1850692896749, 18.992734230857, 16.7692580382508, 16.9044930892154,
13.2925746279911, 18.433943102412, 15.4654844345157, 19.6163393169273,
15.3604843344067, 13.8765403302459, 13.9289534651613, 10.3973654818694,
18.3309733051144, 12.7590236932942, 14.3819847787768, 11.4625920864747,
19.5015121707596, 12.28084935522, 14.0512348541128, 16.9337150501653,
11.2242364954643, 15.2155233568674, 12.9809058574135, 8.45469224431551,
24.2129450052364, 16.847559488074, 18.0178380573739, 12.7106905527945,
2.67485470903932, 9.54065986720626, 11.0431767972755, 18.3307792045199,
10.908945320541, 11.0910166592419, 12.5642216579158, 14.7500714908256,
14.8614420536002, 19.3727763222392, 12.6194421000146, 13.8323741103024,
6.97548723336086, 15.3836675667292, 23.7643925133948, 8.86889002296628,
18.8317114923794, 23.9997853679696, 19.1741213692469, 18.4079481231055,
11.036911857746, 14.8941071967889, 19.4903286289054, 23.7024324863086,
23.5054902075233, 19.0588987052069, 27.7026003466534, 16.4474001696985,
24.5091347992119, 19.0126866510197, 15.1679393017262, 22.4479865769534,
20.3937017054368, 27.1553880766244, 20.0506739741349, 19.6272554292737,
35.9070108924884, 32.6583424587141, 8.51402858997969, 17.1133582589513,
25.8023709606822, 23.5312044406297, 23.2130301198426, 19.5691726986793,
19.5055608774138, 23.7826570346534, 17.2511797075077, 26.7192811656206,
22.0849236783614, 32.8910762759411, 27.1063190011243, 14.9672038127299,
23.3359221862269, 24.6567519120421, 31.8900718785586, 21.1858666875254,
15.6536678749804, 23.9692029750798, 17.1738785517805, 33.3750691203522,
23.909680986755, 32.4372856627174, 25.4438661197545, 30.4376938655793,
12.5708801596425, 17.0279221455215, 20.5132023016822, 16.6426769312702,
16.1836625397323, 16.1363988646829, 23.323082110554, 22.1108856554428,
23.2470647631233, 19.7742738438487, 29.0324995108184), se = c(7.74516492760033,
5.54026978388104, 6.37198470781814, 4.61630740309461, 4.04664512517452,
8.86267711437373, 5.88231483057359, 8.37112522056543, 5.51068307838758,
4.69215717134117, 5.87460984070907, 7.14883628245718, 7.35829981094744,
5.42362321803475, 4.84652166476619, 4.35913142559411, 4.87616513814616,
5.04059279384652, 4.72413018203792, 6.20307446958478, 7.16649205942772,
3.7724045893467, 5.40326372792683, 5.18493803057065, 3.75944896321758,
5.1023774099336, 4.08300495352861, 7.02720831657963, 8.37315628867899,
6.86905600168054, 8.17898160989492, 6.42617547226056, 5.94168550168241,
4.00800154585595, 4.22578839867117, 4.96642262682353, 7.53183601910507,
5.650830203601, 8.12249765214737, 5.29378539796616, 6.77898631412147,
4.49475829649175, 6.37156428762251, 8.00915286393236, 5.41531789355972,
5.41724580403334, 4.30095923344953, 6.40917825026933, 4.12747624643397,
4.86493418144257, 6.03403862735181, 7.23145086718051, 6.68712117389173,
9.60293507419851, 5.88605059266547, 4.95293442495898, 5.01622995357519,
5.61739009109551, 7.31665910558768, 6.3585794633298, 4.14070529468421,
6.3934288255659, 7.71882919698335, 5.30097332675262, 4.77589155045727,
5.36873273375835, 6.71494558395644, 5.92882803715708, 5.97664084795269,
4.69963482944036, 6.51738308586126, 5.46787445899052, 6.9354232765278,
5.43075131758434, 4.90609788346274, 4.92462872502372, 3.67602381935238,
6.480977764898, 4.51099608742408, 5.08479948199738, 4.05263829716074,
6.89482574966805, 4.34193592890324, 4.96786172469396, 5.98697237132628,
3.96836686979217, 5.37949987247163, 4.58944327886061, 2.9891851094004,
8.56056880284979, 5.95651178023043, 6.37026773634505, 4.49390774172238,
0.945703951725238, 3.37313264454795, 3.90435259959773, 6.4809091399747,
3.8568946058739, 3.92126654500144, 4.44212316732156, 5.21493778707456,
5.25431322715583, 6.84931075393278, 4.46164654185567, 4.89048276665205,
2.46620716239483, 5.43894782797688, 8.40198154850015, 3.13562613841859,
6.65801544880505, 8.48520549035649, 6.77907562174418, 6.50819247278905,
3.90213760898522, 5.26586209928439, 6.89087177052665, 8.38007537084257,
8.31044576042686, 6.73833825819965, 9.79434828080971, 5.8150340964413,
8.66528770876895, 6.7219998297555, 5.36267636843828, 7.93656176627417,
7.21026238470503, 9.60087952736673, 7.08898376723569, 6.93928270505997,
12.6950454471089, 11.5464677074346, 3.01016367559539, 6.05048583688965,
9.12251573849462, 8.31953711472812, 8.20704550481413, 6.9187473587234,
6.89625718363316, 8.40843903191869, 6.09921307732324, 9.44669245032017,
7.80819964747834, 11.628751537621, 9.58353098935038, 5.29170565569122,
8.25049441156133, 8.71747823951966, 11.2748430389276, 7.4903350000317,
5.53440735242033, 8.47439298165786, 6.07188299161909, 11.7998688487854,
8.45334878087077, 11.4683123276963, 8.99576513644054, 10.7613498680157,
4.44447730318332, 6.02027960930741, 7.2525122256855, 5.88407485759902,
5.72178876313969, 5.70507853057408, 8.24595475927171, 7.81737859250198,
8.21907856834366, 6.99126156401261, 10.2645386394474), ci = c(18.3144048203896,
13.1006562913318, 15.0673495708851, 10.9158324381648, 9.56879520057738,
20.9569012386845, 13.9094643038782, 19.794565709669, 13.0306948499973,
11.0951886396383, 13.8912448979863, 16.9043116441647, 17.3996141834569,
12.8248309928667, 11.460202664376, 10.3077078848401, 11.5302983404317,
11.9191079627333, 11.1707927961283, 14.6679403252162, 16.9460609225699,
8.92031937878913, 12.7766884488074, 12.2604302100931, 8.88968419104965,
12.0652053643082, 9.65477253248722, 16.6167072063787, 19.799368422587,
16.2427364071228, 19.3402182680889, 15.195490366698, 14.0498536326155,
9.47741765575234, 9.99240172959729, 11.7437233870461, 17.8099621097959,
13.3620901410679, 19.2066549317731, 12.5178133347585, 16.0297554395872,
10.6284144729323, 15.0663554350947, 18.9386370967683, 12.8051920211957,
12.8097508050565, 10.1701525085267, 15.1552983233679, 9.75993043019091,
11.5037413478418, 14.2682340732837, 17.0996640947367, 15.812528901124,
22.7073331629207, 13.9182979775189, 11.7118288578068, 11.86149899979,
13.2830168400614, 17.3011495617098, 15.0356512046695, 9.79121215850893,
15.1180568517655, 18.2521307130893, 12.5348100854857, 11.2931889831883,
12.695035622565, 15.8783231759493, 14.0194505601849, 14.132509892129,
11.1128704913248, 15.4111621017481, 12.9294685503938, 16.3996700747387,
12.8416862699294, 11.601078035924, 11.6448965132815, 8.69241507267338,
15.3250771969114, 10.6668107471631, 12.0236401696174, 9.58296680039998,
16.3036721781715, 10.2670469963466, 11.7471263127709, 14.1569400628541,
9.38369653952791, 12.7204958598867, 10.8523088785033, 7.06829960218823,
20.2425285986472, 14.084912210431, 15.0632895785006, 10.6264032304973,
2.23623449907663, 7.97619125513738, 9.23232684377812, 15.3249149247535,
9.12010652088683, 9.27232196926986, 10.5039521700107, 12.3313683618641,
12.4244764823974, 16.1960463154447, 10.550117614907, 11.564154152022,
5.83165326565063, 12.861067937182, 19.8675293310185, 7.41457761083282,
15.7437047977238, 20.0643226822452, 16.0299666185577, 15.3894297551906,
9.22708922325874, 12.4517852255112, 16.2943225032034, 19.8157294520697,
19.6510815866518, 15.9336380607744, 23.1599534733487, 13.750370648284,
20.4901494631839, 15.8950038166424, 12.6807145942527, 18.766986426796,
17.0495612952207, 22.702472567032, 16.7627829351531, 16.4087961730432,
30.0190123393062, 27.3030575612329, 7.11790602857653, 14.3071255438279,
21.5713219507812, 19.6725792235124, 19.406578834609, 16.3602377950809,
16.3070569816399, 19.8827988529143, 14.4223471582704, 22.3378780653655,
18.4634582477055, 27.4976279016054, 22.6614497933089, 12.5128955257381,
19.5093191732087, 20.6135604579006, 26.6607672827503, 17.7118277936292,
13.0867938437265, 20.0387551619559, 14.3577217748163, 27.9022560454521,
19.9889935344193, 27.1182494549112, 21.2716044032602, 25.4465488777846,
10.509518816761, 14.2356991655378, 17.1494662938291, 13.913626106466,
13.5298804718112, 13.4903670506368, 19.4985846013108, 18.4851630037125,
19.4350325084519, 16.5317066434927, 24.2717769982485)), row.names = c(NA,
-168L), class = "data.frame")
p <- ggplot(tgc, aes(x = Tra, y = Abs_IDE), group = condition) +
geom_errorbar(aes(ymin=Abs_IDE-se, ymax=Abs_IDE+se, group = condition), position = position_dodge(0.5), width=.1) +
geom_line() + geom_point() + theme_bw() + theme(
axis.text.x = element_text(size = 8,face="bold"),#, angle = 10, hjust = .5, vjust = .5),
axis.text.y = element_text(size = 12, face = "bold"),
axis.title.y = element_text(vjust= 1.8, size = 20),
axis.title.x = element_text(vjust= -0.5, size = 18),
axis.title = element_text(face = "bold")) + xlab("Trial number") + ylab("(Deg)") + theme(legend.position="top") +
facet_nested(GROUP ~ condition, shrink=F ) + theme(aspect.ratio = 6/6)
p + guides(fill=guide_legend(title="Test:")) + theme(legend.text=element_text(size=18),legend.title=element_text(size=18) ) +
theme(strip.text = element_text(face="bold", size=16)) + theme(axis.text.x = element_text(angle = 90, vjust = 0.6, hjust=1))
