Попытка добавить размер выборки к каждой метке строки в фрейме данных

Question

Я создаю окончательный фреймворк со списком различных видов кораллов. У меня есть датафрейм, настроенный так, как я хочу. Все, что я хочу сделать, это добавить размер образца каждого вида кораллов к меткам строк (т.е. окончательная метка будет выглядеть, как в этом примере: Acropora sp. (Покрытие) n = 10). У меня есть список всех видов кораллов с указанием размера их выборки, но я не уверен, как включить эти данные в метки строк.

count_focal_taxa = tapply(FR3_final$Type,FR3_final$Type,length)
count_focal_taxa
``

     Acropora_sp_plating            Corallimorph        Favia_stelligera 
                     10                      12                      84 
 My dataframe is currently:

`

    ``{r}
    result <- data.frame(ifelse(FR3_final_means > quantile_high, '+', ifelse(FR3_final_means < quantile_low, '-', 0)))
    result$Type<-(FR3_final_means$Type)
    result
    ```

        Type                A   B   C   D   E   F   G
        Acropora_sp_plating 0   0   0   0   +   0   0   
        Corallimorph        +   0   0   0   0   0   0   
        Favia_stelligera    0   0   0   0   0   -   +

And I want:

    Type                        A   B   C   D   E   F   G
    Acropora_sp_plating n=10    0   0   0   0   +   0   0   
    Corallimorph n=12           +   0   0   0   0   0   0   
    Favia_stelligera n=84       0   0   0   0   0   -   +

Answer 1

Мы можем использовать paste

result$Type = paste(result$Type, 'n=', count_focal_taxa)

Или с sprintf

result$Type <- sprintf('%s n=%d', result$Type, count_focal_taxa)

---

Вместо tapply мы можем получить частоту с table

count_focal_taxa <- table(FR3_final$Type)