Here's something to do before you use @FJCC's code, but after seeing the structure of your table, there might be other ways of finding the totals you're looking for:
library(tidyverse)
Totlumbergrade_outturn <-
structure(list(Pr_App = c(22968, 144274.8318, NA, 32094.3, 29844.48,
17372.16, 2328.156, 13351.68, 20248.8, 24464.4, NA, 20768, NA,
NA, NA, NA, NA, NA, NA, NA), Unpr1_App = c(NA, NA, NA, 397.32,
NA, 449.28, NA, NA, NA, NA, NA, 3206.5, NA, NA, NA, NA, NA, NA,
NA, NA), Unpr2_App = c(2772, NA, NA, NA, NA, NA, NA, NA, NA,
NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA), Unpr3_App = c(NA_real_,
NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_,
NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_,
NA_real_, NA_real_, NA_real_, NA_real_, NA_real_), Unpr4_App = c(NA_real_,
NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_,
NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_,
NA_real_, NA_real_, NA_real_, NA_real_, NA_real_), Pr_Str = c(45936,
NA, NA, 4584.9, NA, 5790.72, 1552.104, NA, NA, NA, NA, NA, NA,
NA, NA, NA, NA, NA, NA, NA), Unpr1_Str = c(270270, NA, NA, 23044.56,
NA, 4492.8, 12222.819, NA, NA, NA, NA, NA, 19350, NA, NA, NA,
NA, NA, NA, NA), Unpr2_Str = c(22176, NA, NA, NA, NA, NA, 4383.83152,
NA, NA, NA, 3846.752, NA, NA, NA, NA, NA, NA, NA, NA, NA), Unpr3_Str = c(NA_real_,
NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_,
NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_,
NA_real_, NA_real_, NA_real_, NA_real_, NA_real_), Unpr4_Str = c(NA_real_,
NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_,
NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_,
NA_real_, NA_real_, NA_real_, NA_real_, NA_real_), Pr_Ind = c(34452,
32100.2682, NA, 4584.9, 7461.12, 5211.648, 1293.42, 4450.56,
10903.2, 8595.6, NA, 5192, NA, NA, NA, NA, NA, NA, NA, NA), Unpr1_Ind = c(103950,
NA, NA, 3973.2, NA, 1946.88, 4074.273, NA, NA, NA, NA, 2623.5,
6450, NA, NA, NA, NA, NA, NA, NA), Unpr2_Ind = c(11088, NA, NA,
NA, NA, NA, 962.30448, NA, NA, NA, 769.3504, NA, NA, NA, NA,
NA, NA, NA, NA, NA), Unpr3_Ind = c(NA_real_, NA_real_, NA_real_,
NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_,
NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_,
NA_real_, NA_real_, NA_real_), Unpr4_Ind = c(NA_real_, NA_real_,
NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_,
NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_,
NA_real_, NA_real_, NA_real_, NA_real_), Pr_Out = c(11484, NA,
NA, 4584.9, NA, 579.072, NA, 4450.56, NA, NA, NA, NA, NA, NA,
NA, NA, NA, NA, NA, NA), Unpr1_Out = c(41580, NA, NA, 12316.92,
NA, 599.04, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA,
NA), Unpr2_Out = c(19404, NA, NA, NA, NA, NA, NA, NA, NA, NA,
3077.4016, NA, NA, NA, 62400, NA, NA, NA, NA, NA), Unpr3_Out = c(NA_real_,
NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_,
NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_,
NA_real_, NA_real_, NA_real_, NA_real_, NA_real_), Unpr4_Out = c(NA_real_,
NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_,
NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_,
NA_real_, NA_real_, NA_real_, NA_real_, NA_real_)), class = c("tbl_df",
"tbl", "data.frame"), row.names = c(NA, -20L))
### end of structure command
# inspect
Totlumbergrade_outturn %>% head()
#> # A tibble: 6 x 20
#> Pr_App Unpr1_App Unpr2_App Unpr3_App Unpr4_App Pr_Str Unpr1_Str
#> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl>
#> 1 22968 NA 2772 NA NA 45936 270270
#> 2 144275. NA NA NA NA NA NA
#> 3 NA NA NA NA NA NA NA
#> 4 32094. 397. NA NA NA 4585. 23045.
#> 5 29844. NA NA NA NA NA NA
#> 6 17372. 449. NA NA NA 5791. 4493.
#> # … with 13 more variables: Unpr2_Str <dbl>, Unpr3_Str <dbl>,
#> # Unpr4_Str <dbl>, Pr_Ind <dbl>, Unpr1_Ind <dbl>, Unpr2_Ind <dbl>,
#> # Unpr3_Ind <dbl>, Unpr4_Ind <dbl>, Pr_Out <dbl>, Unpr1_Out <dbl>,
#> # Unpr2_Out <dbl>, Unpr3_Out <dbl>, Unpr4_Out <dbl>
# replace NA's with zeros (without saving), inspect
Totlumbergrade_outturn %>%
mutate_all(replace_na, 0) %>% head()
#> # A tibble: 6 x 20
#> Pr_App Unpr1_App Unpr2_App Unpr3_App Unpr4_App Pr_Str Unpr1_Str Unpr2_Str
#> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl>
#> 1 2.30e4 0 2772 0 0 45936 270270 22176
#> 2 1.44e5 0 0 0 0 0 0 0
#> 3 0. 0 0 0 0 0 0 0
#> 4 3.21e4 397. 0 0 0 4585. 23045. 0
#> 5 2.98e4 0 0 0 0 0 0 0
#> 6 1.74e4 449. 0 0 0 5791. 4493. 0
#> # … with 12 more variables: Unpr3_Str <dbl>, Unpr4_Str <dbl>,
#> # Pr_Ind <dbl>, Unpr1_Ind <dbl>, Unpr2_Ind <dbl>, Unpr3_Ind <dbl>,
#> # Unpr4_Ind <dbl>, Pr_Out <dbl>, Unpr1_Out <dbl>, Unpr2_Out <dbl>,
#> # Unpr3_Out <dbl>, Unpr4_Out <dbl>
# save result
Totlumbergrade_outturn <-
Totlumbergrade_outturn %>%
mutate_all(replace_na, 0)
Created on 2020-03-18 by the reprex package (v0.3.0)
If you start to reply to my post, and then click the speech bubble icon in the upper left of the editor, you can capture all the code, and then copy and paste into an R file to work with.