我的绘图功能有问题.我已经问了一个类似的问题，Here are all the data and the plotting function分.
当我try 将我的绘图函数应用于我的DFS列表时，标题被更改，并且我在该函数中指定的标题条件不被遵守.有没有办法重命名列表中的所有绘图或修复函数/循环以使标题保持不变？
提前谢谢你
推荐答案
这将按预期工作:
mynames <- sapply(names(tbls), function(x) {
paste("How do they rank? -",gsub("\\.",": ",x))
})
myfilenames <- names(tbls)
plot_likert <- function(x, myname, myfilename){
p <- plot(likert(x),
type ="bar",center=3,
group.order=names(x))+
labs(x = "Theme", subtitle=paste("Number of observations:",nrow(x)))+
guides(fill=guide_legend("Rank"))+
ggtitle(myname)
p
}
list_plots <- lapply(1:length(tbls),function(i) {
plot_likert(tbls[[i]], mynames[i], myfilenames[i])
})
当你有疑问的时候，让事情变得愚蠢和简单.像deparse(substitute(这样的非标准判断会让你直接进入伯恩斯的R inferno分.
R相关问答推荐
从R中的另一个包扩展S3类的正确方法是什么
根据列表中项目的名称多次合并数据框和列表
如何计算前一行的值，直到达到标准？
在for循环中转换rabrame
在R中为马赛克图中的每个字段着色
在ggplot中为不同几何体使用不同的 colored颜色 比例
我正在努力用R计算数据集中的中值逐步距离
计算满足R中条件的连续列
try 将 colored颜色 编码添加到ggploly的标题中
打印XTS对象
基于R中的间隔扩展数据集行
在保留列表元素属性的同时替换列表元素
长/纬点继续在堪萨斯-SF结束，整齐的人口普查
从矩阵创建系数图
希望解析和复制R中特定模式的数据
如何编辑被动式数据表？
在一个multiplot中以非对称的方式在R中绘制多个图
将字符变量出现次数不相等的字符框整形为pivot_wider，而不删除重复名称或嵌套字符变量
当y为负值时，无法使stat_cor正确定位到底部？
从不同长度的列中随机排序特定数量的元素
实用课程推荐