strsplit

strsplit(fixed = TRUE)

poll_SBS_170331

다음 코드에서 "[.]"를 fixed = TRUE 로 바꾸어도 됨. 그러나 "." 만 설정하면 특수문자의 취급 과정에서 빈 글자가 나오게 됨. 두 조건을 동시에 적용하면 엉뚱한 결과가 나오게 됨.

rates <- c(35.2, 17.4, 12.0, 9.5, 7.7, 5.3, 3.4, 2.6)
c_rates <- format(rates, nsmall = 1, justify = "right")
(a <- sapply(strsplit(c_rates, "."), `[`, 1))

## [1] "" "" "" "" "" "" "" ""

(b <- sapply(strsplit(c_rates, "."), `[`, 2))

## [1] "" "" "" "" "" "" "" ""

(a <- sapply(strsplit(c_rates, "[.]"), `[`, 1))

## [1] "35" "17" "12" " 9" " 7" " 5" " 3" " 2"

(b <- sapply(strsplit(c_rates, "[.]"), `[`, 2))

## [1] "2" "4" "0" "5" "7" "3" "4" "6"

(a <- sapply(strsplit(c_rates, ".", fixed = TRUE), `[`, 1))

## [1] "35" "17" "12" " 9" " 7" " 5" " 3" " 2"

(b <- sapply(strsplit(c_rates, ".", fixed = TRUE), `[`, 2))

## [1] "2" "4" "0" "5" "7" "3" "4" "6"

(a <- sapply(strsplit(c_rates, "[.]", fixed = TRUE), `[`, 1))

## [1] "35.2" "17.4" "12.0" " 9.5" " 7.7" " 5.3" " 3.4" " 2.6"

(b <- sapply(strsplit(c_rates, "[.]", fixed = TRUE), `[`, 2))

## [1] NA NA NA NA NA NA NA NA

(b_perc <- paste0(".", b, "%"))

## [1] ".NA%" ".NA%" ".NA%" ".NA%" ".NA%" ".NA%" ".NA%" ".NA%"

Red_and_Black_id_masked

그러나 다음 코드에서 "@"는 특수문자가 아니므로 fixed = TRUE로 설정할 필요가 없음.

class_roll <- readRDS("class_roll_group.RDS")
class_roll$email %>%
#   strsplit("@", fixed = TRUE) %>%
  strsplit("@") %>%
  sapply(`[`, 2) %>%
  table("그룹" = class_roll$group, "e-mail" = .) %>%
  kable

	daum.net	gmail.com	hanmail.net	nate.com	naver.com
Red	2	4	5	4	65
Black	0	2	4	3	70

Help 파일의 예제

strsplit("a.b.c", ".")

## [[1]]
## [1] "" "" "" "" ""

strsplit("a.b.c", "[.]")

## [[1]]
## [1] "a" "b" "c"

strsplit("a.b.c", ".", fixed = TRUE)

## [[1]]
## [1] "a" "b" "c"

strsplit("a.b.c", "[.]", fixed = TRUE)

## [[1]]
## [1] "a.b.c"