英文:
Plot Zoom with R
问题
早上好，
我需要放大以下的图表。
times=data.frame("Times"=c(sample(seq(0, 1, 0.01),1000, replace = TRUE), sample(c(40:70), 500, replace = TRUE)),"Estimator"=rep(c("A", "B", "C"), each=500))library(ggmagnify)#GitHub librarylibrary(ggplot2)library(PupillometryR)times %>%ggplot() +aes(x = Estimator,y = Times) +geom_point(aes(color = Estimator),position = position_jitter(w = .15),size = 0.5,alpha = 0.15) +geom_boxplot(width = .24,outlier.shape = NA,alpha = 0.5) +geom_flat_violin(position = position_nudge(x = .2),trim = TRUE,alpha = 1,scale = "width") +scale_fill_manual(values = c("#00AFBB", "#E7B800", "#FC4E07"))+coord_flip()+geom_magnify(aes(from = Estimator != "A" | Estimator == "B"), to = c(1, 2, 20, 30),shape = "ellipse", shadow = F)
结果如下：
这段代码从"A"缩放到"B"，但我想要放大所有的估算器"A"和"B"。换句话说，我不希望盒图在缩放时被裁剪。我尝试过使用facet_zoom()，但结果更糟糕。
谢谢。
英文:
Good morning,
I have to zoom in the following plot.
times=data.frame("Times"=c(sample(seq(0, 1, 0.01),1000, replace = TRUE), sample(c(40:70), 500, replace = TRUE)),"Estimator"=rep(c("A", "B", "C"), each=500))library(ggmagnify)#GitHub librarylibrary(ggplot2)library(PupillometryR)times%>%ggplot() +aes(x =Estimator ,y = Times) +geom_point(aes(color = Estimator),position = position_jitter(w = .15),size = 0.5,alpha = 0.15) +geom_boxplot(width = .24,outlier.shape = NA,alpha = 0.5) +geom_flat_violin(position = position_nudge(x = .2),trim = TRUE,alpha = 1,scale = "width") +scale_fill_manual(values = c("#00AFBB", "#E7B800", "#FC4E07"))+coord_flip()+geom_magnify(aes(from = Estimator != "A" | Estimator == "B"), to = c(1, 2, 20, 30),shape = "ellipse", shadow = F)
The result is:
This code zoom from "A" to "B" but i'd like to zoom in all the estimator "A" and "B". In other words I wouldn't want that the boxplot was cuted in the zoom. I try also with facet_zoom() but the result is even wrose.
Thank you.
答案1
得分: 1
这是你需要的吗？可能是调整对 ggmagnify 的调用参数的问题。
set.seed(123)times=data.frame("Times"=c(sample(seq(0, 1, 0.01), 1000, replace = TRUE),sample(c(40:70), 500, replace = TRUE)),"Estimator"=rep(c("A", "B", "C"), each = 500))library(ggmagnify)#GitHub库library(ggplot2)library(PupillometryR)times |>ggplot() +aes(x =Estimator ,y = Times) +geom_point(aes(color = Estimator),position = position_jitter(w = .15),size = 0.5,alpha = 0.5) +geom_boxplot(width = .24,outlier.shape = NA,alpha = 0.5) +geom_flat_violin(position = position_nudge(x = .2),trim = TRUE,alpha = 1,scale = "width") +scale_fill_manual(values = c("#00AFBB", "#E7B800", "#FC4E07")) +coord_flip() +geom_magnify(from = c(0.5, 3, -1, 2),to = c(0.5, 3, 10, 30),shape = "ellipse",shadow = F)
创建于2023-06-26，使用 reprex v2.0.2
英文:
Is this what you are after? Possibly a matter of adjusting the parameters of the call to ggmagnify.
set.seed(123)times=data.frame("Times"=c(sample(seq(0, 1, 0.01), 1000, replace = TRUE),sample(c(40:70), 500, replace = TRUE)),"Estimator"=rep(c("A", "B", "C"), each = 500))library(ggmagnify)#GitHub librarylibrary(ggplot2)library(PupillometryR)times |>ggplot() +aes(x =Estimator ,y = Times) +geom_point(aes(color = Estimator),position = position_jitter(w = .15),size = 0.5,alpha = 0.5) +geom_boxplot(width = .24,outlier.shape = NA,alpha = 0.5) +geom_flat_violin(position = position_nudge(x = .2),trim = TRUE,alpha = 1,scale = "width") +scale_fill_manual(values = c("#00AFBB", "#E7B800", "#FC4E07")) +coord_flip() +geom_magnify(from = c(0.5, 3, -1, 2),to = c(0.5, 3, 10, 30),shape = "ellipse",shadow = F)
<!-- -->
<sup>Created on 2023-06-26 with reprex v2.0.2</sup>
通过集体智慧和协作来改善编程学习和解决问题的方式。致力于成为全球开发者共同参与的知识库，让每个人都能够通过互相帮助和分享经验来进步。
评论