发布于 2015-05-24 20:20:19
当然,有一个方法可以做到这一点。但这将是相当不标准的。然而,很好地理解barplot会让你走得很远:
# Create some toy data
set.seed(1)
n <- 100
df <- data.frame(F1 = sample(c("A", "B"), n, replace = TRUE),
F2 = sample(c("c", "d"), n, replace = TRUE))
tab <- t(table(df))
# Create plot
barplot(colSums(tab), width = 2, space = 0.5)
barplot(tab, beside = TRUE, add = TRUE, col = rainbow(2), axisnames = TRUE)
legend("top", col = rainbow(2), pch = 15, legend = rownames(tab))

https://stackoverflow.com/questions/30423054
复制相似问题