小编Pat*_*ick的帖子

所以我使用生存曲线制作了 ggplot。

Wolcurves <- survfit(Surv(Days, Survival) ~ Wol, data = DCV_noPBS)
IFB_plot <- ggsurvplot(Wolcurves, data = DCV_noPBS,
                       line = c(2, 1),
                       pval = "p-value = 0", 
                       xlab = "Time in days",
                       ylab = "Proportional survival",
                       break.time.by = 1,
                       break.y.by = 0.2,
                       legend.labs = c("w1118wMel-Tet", "w1118wMel"))

我用下面的代码遇到了这个错误。

ggsave(filename = "results/IFB2.pdf", plot = IFB_plot,
       width = 12, height = 10, dpi = 1000, units = "cm")

Error in UseMethod("grid.draw") : no applicable method for 'grid.draw' applied to an object of class "c('ggsurvplot', …

我尝试使用 ggplot2分别使用fill和来可视化条形图中的两个离散变量。alpha标准方法如下：

#creating data and building the basic bar plot
library(ggplot2)
myleg<-read.csv(text="lett,num
a,1
a,2
b,1
b,2
h,1
h,2
h,3
h,4")
ggplot(myleg, aes(lett, alpha = factor(num), fill = lett)) +
  geom_bar(position = position_stack(reverse = TRUE)) +
  scale_alpha_discrete(range = c(1, .1),
                       name = "alpha legend",
                       labels = c("alpha lab 4","alpha lab 3",
                                  "alpha lab 2", "alpha lab 1")) +
  labs(title = "initial bar plot for data")

默认图例根据两种不同的呈现方式进行分组（lett 和灰度的着色，或 num 的不透明度）。

我需要将图例分组为绘图上的数据栏。即三个颜色条，每个颜色条都有变化的 alpha 级别。部分解决方案是分别生成具有所需三个图例条的图，如下所示：

ggplot(myleg,aes(lett,alpha=factor(num),fill=lett)) +geom_bar(position="stack",fill="#f8766d") +scale_alpha_discrete(name="red legend",labels=c("red lab …

运行下面的代码有时会失败并返回附加的错误消息。

webshot2::webshot(url = "~/a_web_page.html", file = "~/an_image.png")

Error in launch_chrome(path, args) : 
  Failed to start chrome. Error: [1208/102720.412050:ERROR:filesystem_posix.cc(63)] mkdir /tmp/Crashpad/new: Permission denied (13)
[1208/102720.412409:ERROR:socket.cc(120)] recvmsg: Connection reset by peer (104)