資料結構
網路
關係資料庫管理系統(RDBMS)
作業系統
Java
MS Excel
iOS
HTML
CSS
Android
Python
C語言程式設計
C++
C#
MongoDB
MySQL
Javascript
PHP
物理學
化學
生物學
數學
英語
經濟學
心理學
社會研究
服裝研究
法律研究如何在R語言中求解以特殊字元分隔的字元向量中儲存的數字之和？
為了在R語言中求解以特殊字元分隔的字元向量中儲存的數字之和，我們可以按照以下步驟操作：
- 首先，建立一個向量，其中包含以特殊字元分隔的數字字元向量。
- 然後，使用sapply和strsplit函式來求解數字之和。
示例1
建立一個向量，其中包含以連字元分隔的數字字元向量：
> x1<-sample(c("10-4-5-19-10","11-2-15-19-10","21-21-50-90-10","15-25-52-91-
10","17-27-55-91-100","13-12-75-29-18","14-29-57-92-13"),80,replace=TRUE)
> x1執行上述指令碼後，將生成以下輸出（由於隨機化，此輸出可能因您的系統而異）：
[1] "11-2-15-19-10" "11-2-15-19-10" "13-12-75-29-18" "15-25-52-91-10" [5] "15-25-52-91-10" "17-27-55-91-100" "13-12-75-29-18" "15-25-52-91-10" [9] "13-12-75-29-18" "10-4-5-19-10" "17-27-55-91-100" "14-29-57-92-13" [13] "15-25-52-91-10" "21-21-50-90-10" "15-25-52-91-10" "15-25-52-91-10" [17] "13-12-75-29-18" "15-25-52-91-10" "17-27-55-91-100" "10-4-5-19-10" [21] "15-25-52-91-10" "17-27-55-91-100" "15-25-52-91-10" "21-21-50-90-10" [25] "10-4-5-19-10" "10-4-5-19-10" "10-4-5-19-10" "15-25-52-91-10" [29] "11-2-15-19-10" "10-4-5-19-10" "17-27-55-91-100" "14-29-57-92-13" [33] "17-27-55-91-100" "13-12-75-29-18" "11-2-15-19-10" "14-29-57-92-13" [37] "17-27-55-91-100" "17-27-55-91-100" "11-2-15-19-10" "21-21-50-90-10" [41] "13-12-75-29-18" "15-25-52-91-10" "10-4-5-19-10" "14-29-57-92-13" [45] "15-25-52-91-10" "13-12-75-29-18" "11-2-15-19-10" "11-2-15-19-10" [49] "11-2-15-19-10" "13-12-75-29-18" "14-29-57-92-13" "21-21-50-90-10" [53] "11-2-15-19-10" "11-2-15-19-10" "21-21-50-90-10" "14-29-57-92-13" [57] "21-21-50-90-10" "21-21-50-90-10" "11-2-15-19-10" "15-25-52-91-10" [61] "10-4-5-19-10" "11-2-15-19-10" "11-2-15-19-10" "13-12-75-29-18" [65] "21-21-50-90-10" "11-2-15-19-10" "17-27-55-91-100" "21-21-50-90-10" [69] "15-25-52-91-10" "21-21-50-90-10" "15-25-52-91-10" "21-21-50-90-10" [73] "15-25-52-91-10" "15-25-52-91-10" "21-21-50-90-10" "10-4-5-19-10" [77] "13-12-75-29-18" "11-2-15-19-10" "11-2-15-19-10" "14-29-57-92-13"
求解向量中的數字之和
使用strsplit和sapply函式以及sum函式來求解向量x1中的數字之和：
> x1<-sample(c("10-4-5-19-10","11-2-15-19-10","21-21-50-90-10","15-25-52-91-
10","17-27-55-91-100","13-12-75-29-18","14-29-57-92-13"),80,replace=TRUE)
> sapply(strsplit(x1,"-"), function(x) sum(as.numeric(x)))輸出
[1] 57 57 147 193 193 290 147 193 147 48 290 205 193 192 193 193 147 193 290 [20] 48 193 290 193 192 48 48 48 193 57 48 290 205 290 147 57 205 290 290 [39] 57 192 147 193 48 205 193 147 57 57 57 147 205 192 57 57 192 205 192 [58] 192 57 193 48 57 57 147 192 57 290 192 193 192 193 192 193 193 192 48 [77] 147 57 57 205
示例2
建立一個向量，其中包含以連字元分隔的數字字元向量：
> x2<-sample(c(“10-4-5-19-10”,”11-2-15-19-10”,”21-21-50-90-10”,”15-25-52-91- 10”,”17-27-55-91-100”),80,replace=TRUE) > x2
執行上述指令碼後，將生成以下輸出（由於隨機化，此輸出可能因您的系統而異）：
[1] “17-27-55-91-100” “21-21-50-90-10” “15-25-52-91-10” “11-2-15-19-10” [5] “17-27-55-91-100” “10-4-5-19-10” “21-21-50-90-10” “21-21-50-90-10” [9] “21-21-50-90-10” “10-4-5-19-10” “11-2-15-19-10” “17-27-55-91-100” [13] “21-21-50-90-10” “21-21-50-90-10” “10-4-5-19-10” “10-4-5-19-10” [17] “11-2-15-19-10” “10-4-5-19-10” “15-25-52-91-10” “11-2-15-19-10” [21] “21-21-50-90-10” “10-4-5-19-10” “17-27-55-91-100” “11-2-15-19-10” [25] “15-25-52-91-10” “15-25-52-91-10” “17-27-55-91-100” “10-4-5-19-10” [29] “15-25-52-91-10” “11-2-15-19-10” “15-25-52-91-10” “10-4-5-19-10” [33] “11-2-15-19-10” “21-21-50-90-10” “10-4-5-19-10” “10-4-5-19-10” [37] “21-21-50-90-10” “11-2-15-19-10” “21-21-50-90-10” “17-27-55-91-100” [41] “17-27-55-91-100” “17-27-55-91-100” “11-2-15-19-10” “17-27-55-91-100” [45] “15-25-52-91-10” “15-25-52-91-10” “21-21-50-90-10” “10-4-5-19-10” [49] “21-21-50-90-10” “11-2-15-19-10” “11-2-15-19-10” “10-4-5-19-10” [53] “11-2-15-19-10” “11-2-15-19-10” “21-21-50-90-10” “17-27-55-91-100” [57] “17-27-55-91-100” “11-2-15-19-10” “10-4-5-19-10” “15-25-52-91-10” [61] “11-2-15-19-10” “21-21-50-90-10” “11-2-15-19-10” “11-2-15-19-10” [65] “11-2-15-19-10” “21-21-50-90-10” “15-25-52-91-10” “17-27-55-91-100” [69] “21-21-50-90-10” “11-2-15-19-10” “11-2-15-19-10” “17-27-55-91-100” [73] “11-2-15-19-10” “21-21-50-90-10” “17-27-55-91-100” “11-2-15-19-10” [77] “11-2-15-19-10” “21-21-50-90-10” “11-2-15-19-10” “11-2-15-19-10”
求解向量中的數字之和
使用strsplit和sapply函式以及sum函式來求解向量x2中的數字之和：
> x2<-sample(c(“10-4-5-19-10”,”11-2-15-19-10”,”21-21-50-90-10”,”15-25-52-91- 10”,”17-27-55-91-100”),80,replace=TRUE) > sapply(strsplit(x2,”-“), function(x) sum(as.numeric(x)))
輸出
[1] 290 192 193 57 290 48 192 192 192 48 57 290 192 192 48 48 57 48 193 [20] 57 192 48 290 57 193 193 290 48 193 57 193 48 57 192 48 48 192 57 [39] 192 290 290 290 57 290 193 193 192 48 192 57 57 48 57 57 192 290 290 [58] 57 48 193 57 192 57 57 57 192 193 290 192 57 57 290 57 192 290 57 [77] 57 192 57 57
示例3
建立一個向量，其中包含以井號分隔的數字字元向量：
> x3<-
sample(c("13#12#75#29#18","14#29#57#92#13","41#62#15#89#30","11#12#85#49#14"
,"1#40#50#19#10"),80,replace=TRUE)
> x3執行上述指令碼後，將生成以下輸出（由於隨機化，此輸出可能因您的系統而異）：
[1] "1#40#50#19#10" "41#62#15#89#30" "11#12#85#49#14" "41#62#15#89#30" [5] "1#40#50#19#10" "14#29#57#92#13" "14#29#57#92#13" "14#29#57#92#13" [9] "41#62#15#89#30" "13#12#75#29#18" "41#62#15#89#30" "41#62#15#89#30" [13] "41#62#15#89#30" "1#40#50#19#10" "14#29#57#92#13" "14#29#57#92#13" [17] "41#62#15#89#30" "14#29#57#92#13" "14#29#57#92#13" "14#29#57#92#13" [21] "13#12#75#29#18" "41#62#15#89#30" "14#29#57#92#13" "11#12#85#49#14" [25] "13#12#75#29#18" "41#62#15#89#30" "1#40#50#19#10" "14#29#57#92#13" [29] "14#29#57#92#13" "41#62#15#89#30" "41#62#15#89#30" "11#12#85#49#14" [33] "1#40#50#19#10" "1#40#50#19#10" "13#12#75#29#18" "13#12#75#29#18" [37] "13#12#75#29#18" "13#12#75#29#18" "13#12#75#29#18" "41#62#15#89#30" [41] "41#62#15#89#30" "14#29#57#92#13" "13#12#75#29#18" "11#12#85#49#14" [45] "1#40#50#19#10" "13#12#75#29#18" "13#12#75#29#18" "41#62#15#89#30" [49] "13#12#75#29#18" "13#12#75#29#18" "13#12#75#29#18" "1#40#50#19#10" [53] "14#29#57#92#13" "14#29#57#92#13" "11#12#85#49#14" "41#62#15#89#30" [57] "13#12#75#29#18" "1#40#50#19#10" "11#12#85#49#14" "1#40#50#19#10" [61] "13#12#75#29#18" "11#12#85#49#14" "1#40#50#19#10" "14#29#57#92#13" [65] "41#62#15#89#30" "11#12#85#49#14" "11#12#85#49#14" "41#62#15#89#30" [69] "11#12#85#49#14" "14#29#57#92#13" "11#12#85#49#14" "1#40#50#19#10" [73] "1#40#50#19#10" "13#12#75#29#18" "11#12#85#49#14" "1#40#50#19#10" [77] "11#12#85#49#14" "13#12#75#29#18" "14#29#57#92#13" "13#12#75#29#18"
求解向量中的數字之和
使用strsplit和sapply函式以及sum函式來求解向量x3中的數字之和：
> x3<-
sample(c("13#12#75#29#18","14#29#57#92#13","41#62#15#89#30","11#12#85#49#14"
,"1#40#50#19#10"),80,replace=TRUE)
> sapply(strsplit(x3,"#"), function(x) sum(as.numeric(x)))輸出
[1] 120 237 171 237 120 205 205 205 237 147 237 237 237 120 205 205 237 205 205 [20] 205 147 237 205 171 147 237 120 205 205 237 237 171 120 120 147 147 147 147 [39] 147 237 237 205 147 171 120 147 147 237 147 147 147 120 205 205 171 237 147 [58] 120 171 120 147 171 120 205 237 171 171 237 171 205 171 120 120 147 171 120 [77] 171 147 205 147
更新於： 2021年8月13日
392 次瀏覽
廣告