R语言字符串知识点总结及实例分析

1
2
3
4
5
6
7
8
9
10
11
a <- 'Start and end with single quote'
print(a)

b <- "Start and end with double quotes"
print(b)

c <- "single quote ' in between double quotes"
print(c)

d <- 'Double quotes " in between single quote'
print(d)

1
2
3
4
[1] "Start and end with single quote"
[1] "Start and end with double quotes"
[1] "single quote ' in between double quote"
[1] "Double quote " in between single quote"

1
2
3
4
5
6
7
8
e <- 'Mixed quotes" 
print(e)

f <- 'Single quote ' inside single quote'
print(f)

g <- "Double quotes " inside double quotes"
print(g)

1
2
3
4
5
6
7
...: unexpected INCOMPLETE_STRING

.... unexpected symbol 
1: f <- 'Single quote ' inside

unexpected symbol
1: g <- "Double quotes " inside

1
paste(..., sep = " ", collapse = NULL)

1
2
3
4
5
6
7
8
9
a <- "Hello"
b <- 'How'
c <- "are you? "

print(paste(a,b,c))

print(paste(a,b,c, sep = "-"))

print(paste(a,b,c, sep = "", collapse = ""))

1
2
3
[1] "Hello How are you? "
[1] "Hello-How-are you? "
[1] "HelloHoware you? "

1
format(x, digits, nsmall, scientific, width, justify = c("left", "right", "centre", "none"))

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
# Total number of digits displayed. Last digit rounded off.
result <- format(23.123456789, digits = 9)
print(result)

# Display numbers in scientific notation.
result <- format(c(6, 13.14521), scientific = TRUE)
print(result)

# The minimum number of digits to the right of the decimal point.
result <- format(23.47, nsmall = 5)
print(result)

# Format treats everything as a string.
result <- format(6)
print(result)

# Numbers are padded with blank in the beginning for width.
result <- format(13.7, width = 6)
print(result)

# Left justify strings.
result <- format("Hello", width = 8, justify = "l")
print(result)

# Justfy string with center.
result <- format("Hello", width = 8, justify = "c")
print(result)

1
2
3
4
5
6
7
[1] "23.1234568"
[1] "6.000000e+00" "1.314521e+01"
[1] "23.47000"
[1] "6"
[1] " 13.7"
[1] "Hello  "
[1] " Hello "

1
nchar(x)

1
2
result <- nchar("Count the number of characters")
print(result)

1
[1] 30

1
2
toupper(x)
tolower(x)

1
2
3
4
5
6
7
# Changing to Upper case.
result <- toupper("Changing To Upper")
print(result)

# Changing to lower case.
result <- tolower("Changing To Lower")
print(result)

1
2
[1] "CHANGING TO UPPER"
[1] "changing to lower"

1
substring(x,first,last)

1
2
3
# Extract characters from 5th to 7th position.
result <- substring("Extract", 5, 7)
print(result)

1
[1] "act"