是否有一種功能/簡單的方法可以僅在包含數字（類字符）的資料集元素中洗掉所有空格？例如“23 456”
以下是資料示例：
structure(list(`VYKAZ MYSL 1-01 - SUMá?E` = c("Vlastnicky vztah k honitbě",
"1. vlastní", "2. spole?enstevní", NA, "Zp?sob vyu?ívání honitby",
"1. ve vlastní re?ii"), ...2 = c("po?et", "1 496", "4 255", "honitba",
"po?et", "751"), ...3 = c(NA, "1 511 605", "5 077 050", NA, NA,
NA), ...4 = c("ha", NA, NA, NA, "ha", "780 487"), ...5 = c("po?et",
"178", "24", NA, "po?et", "137"), ...6 = c(NA, NA, NA, "obora",
NA, NA), ...7 = c("ha", "41 911", "2 401", NA, "ha", "31 343"
), `3.9.2018` = c("po?et", "20", "12", "ba?antnice (s)", "po?et",
"14"), ...9 = c("ha", "16 239", "6 446", NA, "ha", "10 294"),
...10 = c("po?et", "25", "233", "ba?antnice (h)", "po?et",
"27"), ...11 = c("ha", "12 399", "60 782", NA, "ha", "12 047"
), ...12 = c(NA_character_, NA_character_, NA_character_,
NA_character_, NA_character_, NA_character_), ...13 = c(NA_character_,
NA_character_, NA_character_, NA_character_, NA_character_,
NA_character_)), row.names = c(NA, -6L), class = c("tbl_df",
"tbl", "data.frame"))
uj5u.com熱心網友回復：
你的意思是這樣的嗎？
ischr <- sapply(dat, is.character)
dat[ischr] <- lapply(dat[ischr], function(z) ifelse(grepl("[^ 0-9]", z), z, gsub(" ", "", z)))
dat
# # A tibble: 6 x 13
# `VYKAZ MYSL 1-01 - SUMá E` ...2 ...3 ...4 ...5 ...6 ...7 `3.9.2018` ...9 ...10 ...11 ...12 ...13
# <chr> <chr> <chr> <chr> <chr> <chr> <chr> <chr> <chr> <chr> <chr> <chr> <chr>
# 1 "Vlastnicky vztah k honitb " po et NA ha po et NA ha po et ha po et ha NA NA
# 2 "1. vlastní" 1496 1511605 NA 178 NA 41911 20 16239 25 12399 NA NA
# 3 "2. spole enstevní" 4255 5077050 NA 24 NA 2401 12 6446 233 60782 NA NA
# 4 NA honitba NA NA NA obora NA ba antnice (s) NA ba a~ NA NA NA
# 5 "Zp sob vyu ívání honitby" po et NA ha po et NA ha po et ha po et ha NA NA
# 6 "1. ve vlastní re ii" 751 NA 780487 137 NA 31343 14 10294 27 12047 NA NA
轉載請註明出處，本文鏈接：https://www.uj5u.com/qita/506836.html