我正在策划r中的barplot.
我的数据:
,Up,Down
Floor-1,690,1511
Maxim,1354,2515
Hosiptal,1358,2649
Bank,459,589
Air-port,1359,2097
Bus-stand,1234,1928
Taxi-Stand,213,138
Railway-station,557,610
Run Code Online (Sandbox Code Playgroud)
脚本的条形图位于: 链接到图像
因为我没有足够的声誉; 我无法发布图片...... :)
我的脚本是:
d <- read.csv("file.csv")
barplot(t(as.matrix(d[, 2:3])),beside=TRUE,legend = c("Up","Down"), ylab = "Number of steps",
xlab = "Building", main = "Up and Down steps",names.arg= as.matrix(d$X) ,col=rainbow(2),type="h")
Run Code Online (Sandbox Code Playgroud)
在该图中,缺少x轴"公交车站"和"火车站"的标签.
如何标记丢失的标签?
您可以尝试使用cex.names缩小标签
x<- c(10, 20, 30, 40, 50)
names <- c("Name", "Long name", "This name is long", "Name", "Name")
barplot(x, names.arg=names)
# Names might not all fit, depending on size of graph
barplot(x, names.arg=names, cex.names=.5)
# All names will probably fit
Run Code Online (Sandbox Code Playgroud)