Fatal编程技术网
  • r/
  • R 如何获取分集函数并将其添加为列

R 如何获取分集函数并将其添加为列

r

R 如何获取分集函数并将其添加为列,r,R,我一直遵循以下代码： 但是，当我实现代码时，它只返回值。我已尝试将它放入另一个数据帧中，但是，恐怕行不匹配。是否有一种方法可以运行该代码，将其放置在同一数据帧中，以便行与它们的来源相匹配。按照链接答案中给出的代码，您需要使用右键连接将多样性向量与方法之一数据帧链接： 多样性（聚合（.~LOC_ID+周+年+邮政编码，方法一，总和）[，5:25]，边际=1，index=“simpson”）%>% TIBLE（多样性=，ID=1:长度（%）%>% 右键连接（方法1%>%变异（ID=1:nrow（）

我一直遵循以下代码：

但是，当我实现代码时，它只返回值。我已尝试将它放入另一个数据帧中，但是，恐怕行不匹配。是否有一种方法可以运行该代码，将其放置在同一数据帧中，以便行与它们的来源相匹配。

按照链接答案中给出的代码，您需要使用
右键连接
将
多样性
向量与
方法之一
数据帧链接：


多样性（聚合（.~LOC_ID+周+年+邮政编码，方法一，总和）[，5:25]，边际=1，index=“simpson”）%>%
TIBLE（多样性=，ID=1:长度（%）%>%
右键连接（方法1%>%变异（ID=1:nrow（））


说明：


    

  • method\u one%>%mutate（ID=1:nrow（.）
    添加一个
    ID
    列
    • 

  • tibble（diversity=，ID=1:length（.））
    将
    diversity
    调用的结果转换为一个带有
    ID
    列的
    tibble
    • 

  • right\u join（x，y，by=NULL，…）
    ：返回
    y
    中的所有行，以及
    x
    和
    y
    中的所有列。
    y
    中与
    x
    中不匹配的行将在新列中具有
    NA
    值。如果
    x
    和
    y
    之间存在多个匹配项，则返回所有匹配项的组合。如果
    by==NULL
    ，则在本例中，它将使用具有匹配名称的列
    ID
    • 

      这里有一个带有
      dplyr的选项
      

      library(dplyr)
library(vegan)
method_one %>%
       group_by(LOC_ID, week, year, POSTCODE) %>%
       summarise(across(everything(), sum, na.rm  = TRUE)) %>%
       ungroup %>%
       select(5:25) %>%
       diversity %>%
       tibble(diversity = .)  %>% 
       bind_cols(method_one, .)