散点图:x轴为分类变量
# 创建示例数据集
a <- rnorm(1:10,5)
b <- rnorm(1:10,6)
c <- rnorm(1:10,7)
abc <- data.frame(matrix(rnorm(1:30,5),nrow = 30))
bj <- data.frame(rep(c("a","b","c"),each=10))
bj2 <- data.frame(rep(c(1,2,3),each=10))
df <- data.frame(cbind(abc,bj,bj2))
head(df)
colnames(df) <- c("abc","bj1","bj2")
# 分类变量改为因子
df$bj1 <- factor(df$bj1)
# 作图
p <- qplot(data=df,bj1,abc)
p
p+geom_line()