小编bab*_*ist的帖子

我有一个包含字符向量的列表.我想在RMarkdown文档中创建一个无序列表.我试图通过循环遍历列表并将输出粘贴到降价列表中来实现此目的.在knitr印刷结果中'asis'.这是一个玩具的例子.

test <- list(x = c('a', 'b', 'c'), y = c('d', 'e'))

我想创建一个这样的无序列表:

- x
    - a
    - b
    - c
- y
    - d
    - e

我尝试使用for循环结合使用cat和paste0.

cols <- names(test)

for (columns in names(test)) {
  cat(paste0("- ", names(test[columns]), '\n', '    ', 
             "- ", test[[cols[columns]]], '\n')) 
}

哪个输出"

- x
    - 
- y
    - 

我希望得到一些帮助,以获得我上面描述的所需的无序列表.

我想通过删除满足或不满足某个条件的列来对数据框进行子集化.例如,给出以下数据:

df <- data.frame(w = c('a', 'b', 'c'), 
                 x = c(1, 0, 0), 
                 y = c(0, 1, 0), 
                 z = c(0, 0, 1))

这使:

  w x y z
  a 1 0 0
  b 0 1 0
  c 0 0 1

我想在对行进行子集化后删除包含0的列.例如:

df %>% filter(., w == 'a')

生产:

w x y z
a 1 0 0

然后我想减少到:

x
1

我希望使用这个dplyr,因此下一步应该在filter命令之后进行管道传输.我尝试过summarise与apply一起使用,但是没有用.