我有一个图,其中x轴是一个标签很长的因子。虽然可能不是理想的可视化,但现在我想简单地将这些标签旋转为垂直。我已经用下面的代码解决了这一部分,但正如你所看到的,标签并不完全可见。
data(diamonds)
diamonds$cut <- paste("Super Dee-Duper",as.character(diamonds$cut))
q <- qplot(cut,carat,data=diamonds,geom="boxplot")
q + opts(axis.text.x=theme_text(angle=-90))
coord_flip()的另一种方法是使用ggstance包。其优点是,它可以更容易地将图形与其他图形类型相结合,并且可能更重要的是,可以为坐标系设置固定比例。
library(ggplot2)
library(ggstance)
diamonds$cut <- paste("Super Dee-Duper", as.character(diamonds$cut))
ggplot(data=diamonds, aes(carat, cut)) + geom_boxploth()
由reprex软件包(v0.3.0)于2020-03-11创建
coord_flip()的另一种方法是使用ggstance包。其优点是,它可以更容易地将图形与其他图形类型相结合,并且可能更重要的是,可以为坐标系设置固定比例。
library(ggplot2)
library(ggstance)
diamonds$cut <- paste("Super Dee-Duper", as.character(diamonds$cut))
ggplot(data=diamonds, aes(carat, cut)) + geom_boxploth()
由reprex软件包(v0.3.0)于2020-03-11创建
ggplot 3.3.0通过提供guide_axis(角度=90)(作为scale_..的guide参数或作为guides的x参数)来解决此问题:
library(ggplot2)
data(diamonds)
diamonds$cut <- paste("Super Dee-Duper", as.character(diamonds$cut))
ggplot(diamonds, aes(cut, carat)) +
geom_boxplot() +
scale_x_discrete(guide = guide_axis(angle = 90)) +
# ... or, equivalently:
# guides(x = guide_axis(angle = 90)) +
NULL
根据角度参数的文档:
与在theme()/element_text()中设置角度相比使用一些启发式方法自动选择你可能想要。
或者,它还提供guide_axis(n.dodge=2)(作为scale_..的guide参数或guides的x参数),通过垂直避开标签来克服过度绘制问题。在这种情况下,它工作得很好:
library(ggplot2)
data(diamonds)
diamonds$cut <- paste("Super Dee-Duper",as.character(diamonds$cut))
ggplot(diamonds, aes(cut, carat)) +
geom_boxplot() +
scale_x_discrete(guide = guide_axis(n.dodge = 2)) +
NULL