搜索向量中的相同字符（不是空格，不是制表符），并在R中留下一个这样的字符

如何从一行中的一系列相同字符（不是空格，不是制表符）中只剩下一个这样的字符

我是说下一个。 这里输入数据

5 NO 58AA WOD~05293_NODC~58AA 005450 WOD~NO005450 6246.630096435547 418.6500072479248 22.540432044045843 -299.02194134859894 06.01.2013 656 368 .NULL. z nc_unique_cast~5#wod_unique_cast~15713249#lat~62.7771682739258#lon~4.31083345413208#time~88759.2895833254#date~20130106#GMT_time~6.94999980926514#Access_no~110866###Bottom_Depth~368######z_row_size~361#Temperature_row_size~361#Temperature_WODprofileflag~0#Salinity_row_size~361#Salinity_WODprofileflag~0#Pressure_row_size~361######country~NORWAY#WOD_cruise_identifier~NO005450##Platform~HAAKON MOSBY (R/V;call sign LJIT;uilt Sep 1980;IMO7922233)######dataset~CTD###dbase_orig~ICES (International Council for the Exploration of the Sea)#########ODV_yyyy-mm-ddThh:mm:ss.sss~2013-01-06T06:56:59.9993#Platform_WOD_code~5293##code_name_units_Platform~5293#Platform_by_WODSelect~HAAKON MOSBY (R/V;call sign LJIT;uilt Sep 1980;IMO7922233)#Platform_NODC_code~58AA#Platform_Name~HAAKON MOSBY (R/V;call sign LJIT;uilt Sep 1980;IMO7922233)#Platform_by_s_3_platform~HAAKON MOSBY (R/V;call sign LJIT;uilt Sep 1980;IMO7922233)# ocldb1538536654.25679_CTD.nc 15713249 .NULL. HAAKON MOSBY (R/V;call sign LJIT;uilt Sep 1980;IMO7922233) 0 .NULL. 368 361 361 722 .NULL. .NULL. 06.01.2013 06:56:59.9993

和输出

5 NO 58AA WOD~05293_NODC~58AA 005450 WOD~NO005450 6246.630096435547 418.6500072479248 22.540432044045843 -299.02194134859894 06.01.2013 656 368 .NULL. z nc_unique_cast~5#wod_unique_cast~15713249#lat~62.7771682739258#lon~4.31083345413208#time~88759.2895833254#date~20130106#GMT_time~6.94999980926514#Access_no~110866#Bottom_Depth~368_row_size~361#Temperature_row_size~361#Temperature_WODprofileflag~0#Salinity_row_size~361#Salinity_WODprofileflag~0#Pressure_row_size~361#country~NORWAY#WOD_cruise_identifier~NO005450#Platform~HAAKON MOSBY (R/V;call sign LJIT;uilt Sep 1980;IMO7922233)#dataset~CTD#dbase_orig~ICES (International Council for the Exploration of the Sea)#ODV_yyyy-mm-ddThh:mm:ss.sss~2013-01-06T06:56:59.9993#Platform_WOD_code~5293#code_name_units_Platform~5293#Platform_by_WODSelect~HAAKON MOSBY (R/V;call sign LJIT;uilt Sep 1980;IMO7922233)#Platform_NODC_code~58AA#Platform_Name~HAAKON MOSBY (R/V;call sign LJIT;uilt Sep 1980;IMO7922233)#Platform_by_s_3_platform~HAAKON MOSBY (R/V;call sign LJIT;uilt Sep 1980;IMO7922233)# ocldb1538536654.25679_CTD.nc 15713249 .NULL. HAAKON MOSBY (R/V;call sign LJIT;uilt Sep 1980;IMO7922233) 0 .NULL. 368 361 361 722 .NULL. .NULL. 06.01.2013 06:56:59.9993

即，将符号“#”的所有出现链替换为单个符号“#”

---

如何操作？

您可以使用

gsub

将两个或多个“#”替换为一个。例如：

gsub("#{2,}", "#", c("test", "test###test", "test#test", "##test####"))
# [1] "test"      "test#test" "test#test" "#test#"  

---

您可以使用

gsub

将两个或多个“#”替换为一个。例如：

gsub("#{2,}", "#", c("test", "test###test", "test#test", "##test####"))
# [1] "test"      "test#test" "test#test" "#test#"  

---

使用

gsub

gsub("#+","#", your_vector)

---

使用

gsub

gsub("#+","#", your_vector)

---

我要说的是，我要说的是相关的：相关的：