0

我想通过变量 xAxis 控制以下情节并拆分

library(ggplot2)
data <- data.frame(
  col1 = c(1, 2, 2, 3, 3, 4),
  col2 = c(1, 1, 2, 1, 2, 1),
  z = rnorm(6))

xAxis="col1"
split="col2"

以下示例确实有效

df<-split(data, data[,xAxis])
p1 <- ggplot()
for(i in df){
 p1 <- p1 + geom_bar(data = i, aes(x=col1, y = ..count..), fill = "blue", alpha = 0.2)
}
p1

df<-split(data, data[,xAxis])
p1 <- ggplot()
for(i in df){
 p1 <- p1 + geom_bar(data = i, aes(x=i[,xAxis], y = ..count..), fill = "blue", alpha = 0.2)
}
p1

不起作用。还有一些其他数据,但我得到的第二个功能完全相同,例如错误:

Error in data.frame(x = list(sec = c(40, 18, 5, 47, 50, 7, 9, 22, 27,  : 
  Argument used differnt number of rows: 707, 3938
4

0 回答 0