如何用select()函数选取列单元格及提取数据框第一行？

以下是修改后的R Shiny代码，同时实现选取指定列和提取第一行数据的需求：

IDD_mapdata_1 <- reactive ({
  IDD_nhmap$race_black <- round(IDD_nhmap$race_black, 1)
  out_map_1 <- IDD_nhmap %>%
    filter(ProjectID %in% input$Disability_map) %>%
    # 替换为你需要保留的列名，多个列用逗号分隔
    select(ProjectID, race_black) %>%
    # 选取数据框的第一行
    slice(1)
  return(out_map_1)
})

关键说明： #

• select()函数：可根据需求指定要保留的列，写法如select(列名1, 列名2, 列名3)；如果要排除某列，用select(-列名)即可。
• 提取第一行：除了slice(1)，也可以用filter(row_number() == 1)或者基础R的索引写法[1,]，但slice()更适配dplyr的管道操作风格。

内容的提问来源于stack exchange，提问作者Nader Mehri