r - ggplot2 で文字列値を変数として使用する

Question

変数 xAxis と split で次のプロットを制御したい

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

動作しません。そして、他のいくつかのデータを使用しますが、2番目のエラーなどで取得した関数とまったく同じです:

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