我画了一个简单的条形图:
mtcars$cnames = rownames(mtcars)
ggplot(mtcars[1:5,], aes(cnames, disp)) +
geom_bar(stat = "identity") +
theme_minimal() +
theme(axis.text.x = element_text(angle = 45, hjust = 0.5),
panel.border = element_rect(colour = "black", fill=NA, size=5))
正如您通过运行此示例所看到的那样,边框正在通过axis.text。 如何降低边界?
答案 0 :(得分:0)
希望这就是你在寻找的东西:
mtcars$cnames = rownames(mtcars)
ggplot(mtcars[1:5,], aes(cnames, disp)) +
geom_bar(stat = "identity") +
theme_minimal() +
theme(axis.text.x = element_text(angle = 45, hjust = 0.5),
plot.background = element_rect(colour = "black", fill=NA, size=5))