我正在试着做我认为会是一件容易的事情，但我被困住了.
我只想以百分比的形式显示密度图，但ggplot2::scale_y_continuous()似乎不是我所期望的方式…
此外，我想调整图例，改变列数和关键形状与ggplot2::guide_legend()...后者不起作用(但它确实适用于ggplot2::geom_point()).
我做错了什么？
这是我的MWE和iris个数据(抱歉，可能有一些额外的信息，但我尽可能地将其保存在我的真实世界代码中):
data(iris)
iris$ID <- paste("sample", rownames(iris))
selected_marker <- "Sepal.Length"
group_for_color <- "Species"
X <- iris[,selected_marker]
plot_data <- data.frame(X, Group=iris[, group_for_color],
ID=iris$ID, stringsAsFactors=FALSE)
names(plot_data)[1] <- selected_marker
plot_data$Group <- factor(plot_data$Group, levels=gtools::mixedsort(unique(plot_data$Group)))
plot_palette <- c("#E41A1C", "#377EB8", "#4DAF4A")
legend_cols <- 1
stroke <- 1
size <- 20
bottom <- 0
top <- 100
breaks <- seq(0, 100, 10)
P <- ggplot2::ggplot(plot_data, ggplot2::aes(x=!!ggplot2::sym(selected_marker), color=Group, fill=Group)) +
ggplot2::geom_density(alpha=0.25, linewidth=stroke) +
ggplot2::ggtitle(selected_marker) +
ggplot2::scale_fill_manual(group_for_color, values=plot_palette, drop=FALSE, guide="none") +
ggplot2::scale_color_manual(group_for_color, values=plot_palette, drop=FALSE,
guide=ggplot2::guide_legend(ncol=legend_cols,
override.aes=list(shape=19, size=size))) +
ggplot2::scale_y_continuous("percent", labels=scales::percent, limits=c(bottom, top), breaks=breaks) +
ggplot2::theme_light() +
ggplot2::theme(plot.title = ggplot2::element_text(face="bold",size=size),
axis.text=ggplot2::element_text(size=size),
axis.title=ggplot2::element_text(size=size,face="bold"),
legend.text=ggplot2::element_text(size=size),
legend.title=ggplot2::element_text(size=size,face="bold"),
legend.position="bottom",
legend.key.size=grid::unit(0.5,"inch"),
plot.margin = grid::unit(c(1,1,1,1), "lines"))
grDevices::pdf(file="test.pdf", height=10, width=10)
print(P)
grDevices::dev.off()
这给我带来了这样的情节:
请注意，百分比不是从0到19%，因此分布都被挤压，关键字形状没有更改为19(实心圆圈).
你知道如何解决这些问题吗？我认为这将是相当简单的.谢谢!
