0

我有许多数据框，我想在 R 中创建 UpSet Plots 并将它们写入外部文件夹。我正在使用我成功使用的类似代码来创建散点图并将其保存到外部文件夹。

下面是两个示例数据框，以及我尝试使用 lapply 函数来完成任务。

library(dplyr)
library(UpSetR)
df <- data.frame("ID" = 1:16)
        df$VarA <- c(1,1,1,1,1,1,1,1,1,1,1,14,NA_real_,NA_real_,NA_real_,16)
        df$VarB <- c(10,0,0,0,12,12,12,12,0,14,NA_real_,14,16,16,16,16)
        df$VarC <- c(10,12,14,16,10,12,14,16,10,12,14,16,10,12,14,16)
        df$VarD <- c(10,12,14,16,10,12,14,16,10,12,14,16,10,12,14,16)
        df$ControlVarA <- factor(c("Group_1","Group_1","Group_1","Group_1","Group_1", "Group_1",
                                   "Group_2","Group_2","Group_2","Group_2","Group_2","Group_2",
                                   "Group_2","Group_2","Group_2","Group_2"))
    df2 <- data.frame("ID" = 1:26)
    df2$VarA <- c(1,1,1,1,1,1,1,1,1,1,1,14,NA_real_,NA_real_,NA_real_,16,16,16,16,16,16,16,16,16,16,16)
    df2$VarB <- c(10,0,0,0,12,12,12,12,0,14,NA_real_,14,16,16,16,16,16,16,16,16,16,16,16,16,16,16)
    df2$VarC <- c(10,12,14,16,10,12,14,16,10,12,14,16,10,12,14,16,16,16,16,16,16,16,16,16,16,16)
    df2$VarD <- c(10,12,14,16,10,12,14,16,10,12,14,16,10,12,14,16,16,16,16,16,16,16,16,16,16,16)
    df2$ControlVarA <- factor(c("Group_1","Group_1","Group_1","Group_1","Group_1", "Group_1",
                               "Group_2","Group_2","Group_2","Group_2","Group_2","Group_2",
                               "Group_2","Group_2","Group_2","Group_2","Group_2","Group_2",
                               "Group_2","Group_2","Group_2","Group_2","Group_2","Group_2","Group_2","Group_2")) 
    
filter_df_names <- list(c("df", "df2"))

lapply(filter_df_names, function(x) {
  
  missupset <- x %>% 
    select(starts_with("Var")) %>% 
    rename_with(~ sub("Var_", "", .x)) %>% 
    mutate(across(everything(), ~if_else(!is.na(.), 1, 0))) %>% 
    as.data.frame()
  
  jpeg(filename=sprintf('C:\\Images\\%s.jpeg', x))
  upset(missupset,
        nsets = 3,
        nintersects = 2,
        order.by = "freq",
        sets.bar.color = "#c7c0cb",
        main.bar.color = "#442040",
        matrix.color = "#442040")
  dev.off()
})
4

0 回答 0