# Data
df <- data.frame(Republicans = c(0.035, 0.034, 0.083, 0.078, 0.092),
Democrats = c(0.023, 0.044, 0.067, 0.083, 0.101))
rownames(df) <- c("Bronx", "Brooklyn", "Manhattan", "Queens", "Staten Island")
# Transformation
freq <- table(floor(c(df[[1]], df[[2]])*100))
barplot(freq, names = names(freq))
下次,请不要发布图片(如要求@ r2evans)。
本文收集自互联网,转载请注明来源。
如有侵权,请联系 [email protected] 删除。
我来说两句