將列除以參考行

我需要將列despesatotal和despesamonetaria名為 Total 的行分開：

uj5u.com熱心網友回復：

假設您的資料集是df.

# 1) Delete the last row
     df <- df[-nrow(df),]
# 2) Build the desired data.frame [combining the CNAE names and the proportion columns
     new.df <- cbind(grup_CNAE = df$grup_CNAE,
                     100*prop.table(df[,-1],margin = 2))

最后，重命名您的列。請注意matrixordata.frame格式，因為有時數學運算可能會出現問題。如果你dput為了給我們一個可重現的例子而使用函式，那么答案會更準確。

uj5u.com熱心網友回復：

這是完成它的一種方法。這不是最好的方法，但我認為它非常可讀。

假設這是您的資料框：

mydf = structure(list(grup_CNAE = c("A", "B", "C", "D", "E", "Total"
), despesatotal = c(71, 93, 81, 27, 39, 311), despesamonetaria = c(7, 
72, 36, 22, 73, 210)), row.names = c(NA, -6L), class = "data.frame")

mydf

#  grup_CNAE despesatotal despesamonetaria
#1         A           71                7
#2         B           93               72
#3         C           81               36
#4         D           27               22
#5         E           39               73
#6     Total          311              210

要將despesatotal值除以其總值，您需要使用總值（311在本例中）作為分母。請注意，總值位于最后一行。despesatotal您可以通過索引列來識別其位置并nrow()用作索引值。

mydf |> mutate(percentage1 = despesatotal/despesatotal[nrow(mydf)], 
     percentage2 = despesamonetaria /despesamonetaria[nrow(mydf)])

#  grup_CNAE despesatotal despesamonetaria percentage1 percentage2
#1         A           71                7  0.22829582  0.03333333
#2         B           93               72  0.29903537  0.34285714
#3         C           81               36  0.26045016  0.17142857
#4         D           27               22  0.08681672  0.10476190
#5         E           39               73  0.12540193  0.34761905
#6     Total          311              210  1.00000000  1.00000000

uj5u.com熱心網友回復：

library(tidyverse)

樣本資料

# A tibble: 11 x 3
   group despesatotal despesamonetaria
   <chr>        <int>            <int>
 1 1              198              586
 2 2              186              525
 3 3              202              563
 4 4              300              562
 5 5              126              545
 6 6              215              529
 7 7              183              524
 8 8              163              597
 9 9              213              592
10 10             175              530
11 Total         1961             5553

df %>% 
  mutate(percentage_total = despesatotal / last(despesatotal), 
         percentage_monetaria = despesamonetaria/ last(despesamonetaria)) %>%  
  slice(-nrow(.))

# A tibble: 10 x 5
   group despesatotal despesamonetaria percentage_total percentage_monetaria
   <chr>        <int>            <int>            <dbl>                <dbl>
 1 1              198              586           0.101                0.106 
 2 2              186              525           0.0948               0.0945
 3 3              202              563           0.103                0.101 
 4 4              300              562           0.153                0.101 
 5 5              126              545           0.0643               0.0981
 6 6              215              529           0.110                0.0953
 7 7              183              524           0.0933               0.0944
 8 8              163              597           0.0831               0.108 
 9 9              213              592           0.109                0.107 
10 10             175              530           0.0892               0.0954

標籤：r划分

上一篇：使用dplyr::mutate和選擇列的向量創建其他列的連接值的新變數

下一篇：根據字串中的間隔自動生成組