test1 <- sample(letters[1:2], 100, replace=T)
test2 <- sample(letters[3:8], 100, replace=T)
test <- data.frame(cbind(test1,test2))
ggplot(test, aes(test2))+geom_bar()+facet_grid(~test1)
这很容易，但如果在A面和B面中N不同，最好是比较百分比，以使每个面总和为100%。
您如何实现这一点？
希望我的问题有意义。
真诚地。
这是一个使用ggplot方法内部的示例，使用..count..和..PANEL..：
ggplot(test, aes(test2)) +
geom_bar(aes(y = (..count..)/tapply(..count..,..PANEL..,sum)[..PANEL..])) +
facet_grid(~test1)
由于这是动态计算的，因此它应该对绘图参数的更改具有鲁棒性。
试一下这个：
# first make a dataframe with frequencies
df <- as.data.frame(with(test, table(test1,test2)))
# or with count() from plyr package as Hadley suggested
df <- count(test, vars=c('test1', 'test2'))
# next: compute percentages per group
df <- ddply(df, .(test1), transform, p = Freq/sum(Freq))
# and plot
ggplot(df, aes(test2, p))+geom_bar()+facet_grid(~test1)
对于ggplot2版本0.8.9，您还可以添加+ scale_y_continuous(formatter = "percent")到图形中，或者对于版本0.9.0，您可以使用+ scale_y_continuous(labels = percent_format())。
count而不是as.data.frame(table(...)) - 它更快，而且不会将所有制表变量转换为因子。 - hadley+ scale_y_continuous(labels = percent)。 - Owenggplot(test, aes(test2)) +
geom_bar(aes(y = (..count..)/sum(..count..))) +
facet_grid(~test1)
所以我只改变了geom_bar的参数为aes(y = (..count..)/sum(..count..))。
将ylab设置为NULL并指定格式化程序，您可以获得：
ggplot(test, aes(test2)) +
geom_bar(aes(y = (..count..)/sum(..count..))) +
facet_grid(~test1) +
scale_y_continuous('', formatter="percent")
更新请注意，虽然formatter = "percent"适用于ggplot2版本0.8.9，在0.9.0中，您需要使用scale_y_continuous(labels = percent_format())。
这里有一个解决方案，应该可以让你朝着正确的方向前进。我很好奇是否有更有效的方法来完成这个任务，因为这似乎有点繁琐和复杂。我们可以使用内置的..density..参数来处理y aesthetic，但是因子在那里不起作用。所以我们还需要使用scale_x_discrete来适当地标记轴，一旦我们将test2转换为数字对象。
ggplot(data = test, aes(x = as.numeric(test2)))+
geom_bar(aes(y = ..density..), binwidth = .5)+
scale_x_discrete(limits = sort(unique(test$test2))) +
facet_grid(~test1) + xlab("Test 2") + ylab("Density")
不过试试这个，然后告诉我你的想法。
另外，你可以像这样简化你的测试数据创建，避免在环境中添加额外的对象和将它们绑定在一起：
test <- data.frame(
test1 = sample(letters[1:2], 100, replace = TRUE),
test2 = sample(letters[3:8], 100, replace = TRUE)
)
ggplot方法中分享PANEL“提示”。ggplot方法中的count和group来在同一条形图上生成百分比。y lab。ggplot(test, aes(test2,fill=test1))
+ geom_bar(aes(y = (..count..)/tapply(..count..,..group..,sum)[..group..]), position="dodge")
+ scale_y_continuous(labels = percent)
我经常处理类似的情况，但采用了与 Hadley 的其他两个包（即 reshape 和 plyr）完全不同的方法。主要是因为我更喜欢将事物呈现为100％堆叠条形图（当它们总计为100％时）。
test <- data.frame(sample(letters[1:2], 100, replace=T), sample(letters[3:8], 100, replace=T))
colnames(test) <- c("variable","value")
test <- cast(test, variable + value ~ .)
colnames(test)[3] <- "frequ"
test <- ddply(test,"variable", function(x) {
x <- x[order(x$value),]
x$cfreq <- cumsum(x$frequ)/sum(x$frequ)
x$pos <- (c(0,x$cfreq[-nrow(x)])+x$cfreq)/2
x$freq <- (x$frequ)/sum(x$frequ)
x
})
plot.tmp <- ggplot(test, aes(variable,frequ, fill=value)) + geom_bar(stat="identity", position="fill") + coord_flip() + scale_y_continuous("", formatter="percent")
geom_text无法与计算变量配合使用。您可能想要将其作为一个单独的问题发布。 - James..y../tapply(..y.., ..PANEL.., sum)[..PANEL..]就可以工作。 - krassowski