在ggplot中使用`facet_wrap`時如何修復x和y軸

在此先感謝。在ggplot中使用`facet_wrap`時如何修復x和y軸

有了這些數據：

data <- structure(list(ID = structure(c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 
1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 
1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 
2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 
2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 
2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 
2L, 2L, 2L, 2L, 2L, 2L, 2L, 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, 3L, 3L, 3L, 3L, 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, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 
5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 
5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 
5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 
5L, 5L, 5L, 5L, 5L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 
6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 7L, 7L, 7L, 
7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 
7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 
7L, 7L, 7L), .Label = c("COL_P06", "COL_P07", "COL_P08", "COL_P09", 
"COL_P10", "COL_P12", "COL_P13"), class = "factor"), PreyGen = structure(c(1L, 
5L, 5L, 6L, 6L, 5L, 6L, 6L, 5L, 9L, 1L, 1L, 1L, 1L, 1L, 6L, 5L, 
5L, 5L, 5L, 8L, 1L, 9L, 1L, 1L, 1L, 5L, 4L, 5L, 5L, 6L, 5L, 5L, 
6L, 5L, 6L, 6L, 6L, 6L, 6L, 5L, 6L, 5L, 5L, 5L, 6L, 5L, 5L, 5L, 
5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 6L, 5L, 6L, 5L, 5L, 5L, 5L, 
6L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 
5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 6L, 5L, 5L, 6L, 6L, 6L, 6L, 6L, 
6L, 5L, 6L, 6L, 6L, 6L, 5L, 5L, 10L, 5L, 5L, 5L, 5L, 6L, 5L, 
5L, 5L, 5L, 5L, 6L, 5L, 5L, 6L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 
5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 6L, 5L, 5L, 5L, 5L, 4L, 5L, 
5L, 5L, 6L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 
5L, 5L, 4L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 6L, 5L, 5L, 5L, 5L, 
5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 6L, 
5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 6L, 5L, 5L, 6L, 5L, 5L, 5L, 
5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 6L, 5L, 6L, 
5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 4L, 5L, 4L, 5L, 5L, 5L, 5L, 6L, 
4L, 5L, 5L, 3L, 5L, 5L, 5L, 2L, 5L, 10L, 5L, 5L, 5L, 4L, 3L, 
5L, 5L, 5L, 5L, 5L, 5L, 6L, 4L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 
5L, 6L, 5L, 5L, 1L, 6L, 5L, 5L, 5L, 6L, 5L, 5L, 5L, 5L, 5L, 5L, 
5L, 1L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 6L, 1L, 6L, 6L, 1L, 6L, 
6L, 1L, 5L, 10L, 5L, 5L, 5L, 5L, 1L, 5L, 5L, 5L, 5L, 5L, 5L, 
5L, 6L, 5L, 6L, 5L, 6L, 5L, 5L, 5L, 5L, 5L, 5L, 5L), .Label = c("Beaver", 
"Bird", "Bobcat", "Coyote", "Deer", "Elk", "No Kill", "Porcupine", 
"Raccoon", "SmMamm"), class = "factor")), .Names = c("ID", "PreyGen" 
), class = "data.frame", row.names = c(743L, 745L, 746L, 747L, 
748L, 751L, 753L, 759L, 761L, 764L, 766L, 767L, 768L, 769L, 770L, 
771L, 773L, 774L, 776L, 777L, 779L, 780L, 783L, 784L, 786L, 788L, 
792L, 793L, 800L, 803L, 829L, 832L, 836L, 843L, 853L, 862L, 864L, 
868L, 873L, 876L, 883L, 884L, 885L, 886L, 888L, 890L, 893L, 896L, 
898L, 901L, 903L, 904L, 906L, 908L, 909L, 912L, 914L, 915L, 919L, 
920L, 922L, 924L, 926L, 928L, 929L, 930L, 931L, 932L, 933L, 934L, 
935L, 937L, 938L, 939L, 941L, 945L, 946L, 948L, 957L, 961L, 962L, 
966L, 967L, 969L, 971L, 972L, 975L, 977L, 980L, 981L, 982L, 986L, 
995L, 998L, 1000L, 1002L, 1007L, 1008L, 1016L, 1020L, 1025L, 
1028L, 1031L, 1038L, 1043L, 1044L, 1047L, 1052L, 1062L, 1069L, 
1072L, 1077L, 1078L, 1079L, 1080L, 1085L, 1093L, 1094L, 1095L, 
1098L, 1100L, 1101L, 1102L, 1103L, 1104L, 1105L, 1107L, 1109L, 
1110L, 1112L, 1114L, 1115L, 1116L, 1117L, 1120L, 1126L, 1132L, 
1133L, 1146L, 1147L, 1151L, 1158L, 1160L, 1164L, 1166L, 1167L, 
1169L, 1173L, 1175L, 1180L, 1181L, 1184L, 1190L, 1192L, 1193L, 
1196L, 1198L, 1205L, 1208L, 1209L, 1213L, 1216L, 1218L, 1219L, 
1224L, 1225L, 1227L, 1231L, 1232L, 1233L, 1234L, 1237L, 1240L, 
1241L, 1242L, 1243L, 1244L, 1245L, 1246L, 1248L, 1249L, 1250L, 
1253L, 1255L, 1257L, 1261L, 1262L, 1264L, 1271L, 1274L, 1275L, 
1276L, 1277L, 1280L, 1282L, 1288L, 1290L, 1297L, 1299L, 1305L, 
1307L, 1308L, 1309L, 1310L, 1315L, 1324L, 1327L, 1334L, 1335L, 
1336L, 1340L, 1342L, 1343L, 1344L, 1345L, 1348L, 1349L, 1352L, 
1355L, 1356L, 1357L, 1358L, 1360L, 1361L, 1363L, 1364L, 1365L, 
1368L, 1373L, 1374L, 1377L, 1378L, 1381L, 1383L, 1385L, 1387L, 
1388L, 1390L, 1391L, 1392L, 1393L, 1395L, 1397L, 1398L, 1404L, 
1405L, 1408L, 1409L, 1410L, 1411L, 1412L, 1414L, 1417L, 1420L, 
1425L, 1426L, 1431L, 1432L, 1433L, 1435L, 1441L, 1445L, 1446L, 
1447L, 1448L, 1450L, 1451L, 1456L, 1458L, 1466L, 1468L, 1474L, 
1475L, 1476L, 1478L, 1483L, 1486L, 1488L, 1489L, 1490L, 1491L, 
1492L, 1495L, 1497L, 1499L, 1500L, 1501L, 1502L, 1504L, 1506L, 
1509L, 1511L, 1514L, 1518L, 1520L, 1526L, 1533L, 1535L, 1537L, 
1541L, 1542L, 1544L, 1547L, 1549L, 1551L, 1552L, 1553L, 1556L, 
1557L, 1559L, 1560L, 1565L, 1567L, 1569L, 1571L, 1572L, 1573L, 
1576L, 1578L, 1588L, 1590L, 1592L, 1593L, 1596L, 1598L, 1599L, 
1601L, 1603L, 1605L, 1607L, 1612L))

的頭，它的樣子：

> head(data) 
     ID PreyGen 
743 COL_P06 Beaver 
745 COL_P06 Deer 
746 COL_P06 Deer 
747 COL_P06  Elk 
748 COL_P06  Elk 
751 COL_P06 Deer

和驗證碼：

library(ggplot2) 
ggplot(data, aes(PreyGen)) + 
    geom_bar(position="dodge")+ 
    facet_wrap(~ID,scales="free",ncol=2)

我可以讓這個情節 fig

在上面的圖中，我想：

1）設置x軸，以便所有ID s都包含所有PreyGen。這意味着每個x軸應具有preyGen

2）所有值都具有y軸是一個比例，而不是一個計數，並且具有y軸是相同的規模爲所有ID S（0 - 100％）

3）在空白處添加一個合併的圖。含義只是顯示PrenGen的分佈而不是ID的函數。

喜歡這裏，

ggplot(data, aes(PreyGen)) + 
    geom_bar(position="dodge")

，但包括如上組在第七情節。

感謝您的任何建議和幫助！

來源

2014-03-06 B. Davis

小比例範圍內，或整體？由於您指定了'scale =「free」'，因此它將放棄x軸類別。刪除並顯示所有類別。對於（3），您需要生成一些額外的聚合數據作爲單獨的組，並將其附加到您的數據框中。 – joran

要添加到喬蘭的評論，爲2）使用'scale_y_continuous（限制= c（0,100），休息= seq（0,100,20））' –

如果你想要做的每小部分，那麼你就必須單獨計算的統計（雖然會好奇，看看是否有人知道如何做到這一點直接）：

library(plyr) 
data2 <- rbind(data, transform(data, ID="ALL")) 
data3 <- ddply(data2, .(ID, PreyGen), summarise, PreyGenCount=length(PreyGen)) 
data3$PreyGenPct <- with(data3, ave(PreyGenCount, ID, FUN=function(x) x/sum(x) * 100)) 
ggplot(data3, aes(PreyGen)) + 
    geom_bar(aes(y=PreyGenPct), stat="identity") + 
    facet_wrap(~ID, ncol=2) + 
    scale_x_discrete(drop=F) + 
    coord_cartesian(ylim=c(0, 100))

enter image description here

我們使用coord_cartesian來設置您所要求的y限制，並且使用scale_x_discrete(drop=F)來確保所有等級都保留在所有方面。如果你的內容，總的分數，那麼你可以做：

ggplot(data2, aes(PreyGen)) + 
    geom_bar(aes(y = (..count..)/sum(..count..))) + 
    facet_wrap(~ID,scales="free",ncol=2) + 
    scale_x_discrete(drop=F)

enter image description here

來源

2014-03-06 03:29:08 BrodieG

你的'data3'從哪裏來？它看起來像你生成的新數據，使創建'所有'情節。 –

@ B.Davis，那只是從下往上的'data2'，我錯過了周圍，並沒有重新命名爲正確的名字。我已經更新了答案。我的第一個回答是'data2'。 – BrodieG

感謝您的澄清！代碼完美。最後一項任務是將「全部」情節移動到左上角位置。那可能嗎？ –

在ggplot中使用`facet_wrap`時如何修復x和y軸

回答

相關問題