добавить сумму после последней строки, для некоторых столбцов

Question

Я хотел бы напечатать таблицу с суммами, но только для определенных столбцов.Скажем, для этого примера только столбцы 2 и 3, в то время как я хотел бы напечатать всю таблицу (с суммами только для 2 столбцов) и сохранить исходную структуру таблицы.

x <- data.frame(
  fruit = c("apple", "orange", "banana"),
  amount = c("10", "5", "4"),
  price = c(2.5, 2, 1.5),
  taste = c("great", "super", "nice"))
x`

Не могли бы вы помочьмне с этим?

Answer 1

Update: 

x <- data.frame(
fruit = c("apple", "orange", "banana"),
amount = c(10, 5, 4),
price = c(2.5, 2, 1.5),
taste = c("great", "super", "nice"))
x

library(janitor)
x %>%
adorn_totals("row")

Как добавить строку во фрейм данных с итогами?

Answer 2

Чтобы помочь вам в правильном направлении.Сделал бы это так:

x$amount <- as.numeric(x$amount)
x["Total" ,] <- colSums(x[c("amount", "price")])
print(x, na.print = "", row.names = FALSE)

Вывод:

   fruit amount price taste
   apple      1   2.5 great
  orange      3   2.0 super
  banana      2   1.5  nice
              6   6.0