如何自动化我的代码而不是手动更改值？

Question

我有一个冲积 ggplot 的代码。我想让我的代码变成一个函数，所以它将是自动的，而不是为不同的值编写相同的代码。您唯一需要更改的就是数据，我该怎么做？

这是我当前的代码

 ggplot(as.data.frame(allu),
   aes(y = allu$Freq, axis1 = allu$a1, axis2 = allu$a2, axis3 = allu$a3,axis4 = allu$a4, axis5 = allu$a5, axis6 = allu$a6, axis7 = allu$a7, axis8 = allu$a8)) +
   geom_alluvium(aes(fill = allu$a1), width = 1/12) +
  geom_stratum(width = 1/12, fill = "black", color = "grey") +
  geom_label(stat = "stratum", label.strata = TRUE) +
  scale_x_discrete(limits = c ("a1", "a2", "a3", "a4", "a5", "a6", "a7", "a8"), expand = c(0.02, 0.02)) +  >     scale_fill_brewer(type = "qual", palette = "Set1") +
  ggtitle("CLL")  

我可以将此代码制作成一个无需手动输入值而仅更改数据即可自动运行绘图的函数吗？

Answer 1

大概是这样
（注意：我只是复制了你的代码，没有测试它是否真的有效）

myfunction <- function( data_ ) {
  ggplot( data_,
     aes(y = data_$Freq, axis1 = data_$a1, axis2 = data_$a2, axis3 = data_$a3,axis4 = data_$a4, axis5 = data_$a5, axis6 = data_$a6, axis7 = data_$a7, axis8 = data_$a8)) +
    geom_alluvium(aes(fill = data_$a1), width = 1/12) +
    geom_stratum(width = 1/12, fill = "black", color = "grey") +
    geom_label(stat = "stratum", label.strata = TRUE) +
    scale_x_discrete(limits = c ("a1", "a2", "a3", "a4", "a5", "a6", "a7", "a8"), expand = c(0.02, 0.02)) + 
    scale_fill_brewer(type = "qual", palette = "Set1") +
    ggtitle("CLL")  
}

然后调用使用

myfunction( data_ = as.data.frame(allu) )