小编Ame*_*aMN的帖子

我希望以不同的颜色(例如红色)突出显示某个代码块,以表明这是不好的做法.如果我正在使用.Rnw,我可以添加chunk选项background = 'red'并得到我想要的东西,但这似乎不起作用.Rmd.我的猜测是我需要制作一个自定义的css样式表(虽然选择器是什么,我不知道),也可能创建一个自定义钩子.我希望它基于每个块,而不是整个文档的整体更改.

我正在尝试将一些plyr代码转换为dplyr,并且在dplyr中遇到了rename()的新功能.我希望能够为一组具有重叠但不完全相同的原始名称的数据集重用单个rename()表达式.例如,

sample1 <- data.frame(A=1:10, B=letters[1:10])

sample2 <- data.frame(B=11:20, C=letters[11:20])

然后,

 rename(sample1, var1 = A, var2 = B, var3 = C)

我希望结果是变量A重命名为var1,B重命名为var2,在这种情况下不添加var3.相反,我得到了

错误:未知变量:C.

相反,plyr语法可以让我使用

rename(sample1, c("A" = "var1", "B" = "var2", "C" = "var3"))
rename(sample2, c("A" = "var1", "B" = "var2", "C" = "var3"))

而不是抛出错误.有没有办法在dplyr中获得相同的结果而不会出现未知变量错误？

一位同事有一些数据由许多稀疏列组成,这些列应该折叠成几个填充列.例如:

d1 <- data.frame(X1 = c(rep("Northampton", times=3), rep(NA, times=7)), 
                 X2 = c(rep(NA, times=3), rep("Amherst", times=5), rep(NA, times=2)), 
                 X3 = c(rep(NA, times=8), rep("Hadley", times=2)), 
                 X4 = c(rep("Stop and Shop", times=2), rep(NA, times=6), rep("Stop and Shop", times=2)), 
                 X5 = c(rep(NA, times=2), rep("Whole Foods", times=6), rep(NA, times=2)))

d1
            X1      X2     X3            X4          X5
1  Northampton    <NA>   <NA> Stop and Shop        <NA>
2  Northampton    <NA>   <NA> Stop and Shop        <NA>
3  Northampton    <NA>   <NA>          <NA> Whole Foods
4         <NA> Amherst   <NA>          <NA> Whole Foods …