R GGPlot-向左移动刻面_包裹y标签并使文本水平
我尝试过现有的答案，但没有一个能给我我想要的结果。非常感谢你的帮助。我想制作一张如下的图表，y轴显示科和种： 我使用了R GGPlot-向左移动刻面_包裹y标签并使文本水平,r,ggplot2,R,Ggplot2,我尝试过现有的答案，但没有一个能给我我想要的结果。非常感谢你的帮助。我想制作一张如下的图表，y轴显示科和种： 我使用了facet wrap，但这会在族之间放置线，挤压它们，并且您无法读取族名称。我想在给定的示例中将它们定位为“A组，B组”（即，在物种名称的左侧，水平文本，它们之间有线条，而不是图表中的空白） 以下是我迄今为止创建的内容： 这是Y轴上按族的facet\u wrap： 以下是我目前的代码： ggplot(lower[lower$Value != 0,], aes(x=Sam
facet wrapfacet\u wrap ggplot(lower[lower$Value != 0,], aes(x=Sample, y=Species)) +
geom_point(aes(size=Value, alpha = 0.75)) +
scale_x_discrete(labels= xlabels, drop = TRUE) +
theme(axis.title.x = element_blank(),
axis.title.y = element_blank(),
axis.text.y = element_text(size=5),
axis.text.x = element_text(size=7),
legend.position = "right",
strip.placement = "outside") +
scale_alpha(guide = "none") +
facet_grid(Family ~ Year, scales = "free", space = "free") +
scale_size_area("Frequency", limits = c(1, 20), breaks = c(1, 2, 5, 10, 20),
labels = c("One sighting", "Rare", "Uncommon", "Common", "Very common"))
ggplot(lower[lower$Value != 0,], aes(x=Sample, y=Species)) +
geom_point(aes(size=Value, alpha = 0.75)) +
scale_x_discrete(labels= xlabels, drop = TRUE) +
theme(axis.title.x = element_blank(),
axis.title.y = element_blank(),
axis.text.y = element_text(size=5),
axis.text.x = element_text(size=7),
panel.spacing.y = unit(0, "lines"),
legend.position = "right",
strip.placement = "outside") +
scale_alpha(guide = "none") +
facet_grid(Family ~ Year, scales = "free", space = "free", switch = "y") +
scale_size_area("Frequency", limits = c(1, 20), breaks = c(1, 2, 5, 10, 20),
labels = c("One sighting", "Rare", "Uncommon", "Common", "Very common"))