Warning: file_get_contents(/data/phpspider/zhask/data//catemap/2/jquery/77.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
R 用上一个值替换字符串中的元素_R_Character_Sapply - Fatal编程技术网

R 用上一个值替换字符串中的元素

R 用上一个值替换字符串中的元素,r,character,sapply,R,Character,Sapply,我有一个如下所示的字符串: string <- c("1","2","3","","5","6","") 代码> String 我们可以使用 n.Lof > 动物园>代码>将空白(“/COD> >”改为 n>代码>之后,NA值被非NA相邻的先前值取代。 library(zoo) na.locf(replace(string, string =="", NA)) #[1] "1" "2" "3" "3" "5" "6" "6" 如果元素之间只有一个空格,则创建一个索引,如OP的帖子中所

我有一个如下所示的字符串:

string <- c("1","2","3","","5","6","")

<>代码> String 我们可以使用<代码> n.Lof<代码> > <代码>动物园>代码>将空白(<代码>“/COD> >”改为<代码> n>代码>之后,NA值被非NA相邻的先前值

取代。
library(zoo)
na.locf(replace(string, string =="", NA))
#[1] "1" "2" "3" "3" "5" "6" "6"

如果元素之间只有一个空格,则创建一个索引,如OP的帖子中所示,然后用减去1的索引对应的元素进行替换

i1 <- which(string == "")
string[i1] <- string[i1-1]

<代码> I1

我们可以使用<代码> No.LoF< <代码> > <代码>动物园>代码>将空白(<代码>“/COD> >”改为<代码> n>代码>之后,NA值被非NA相邻的先前值

取代。
library(zoo)
na.locf(replace(string, string =="", NA))
#[1] "1" "2" "3" "3" "5" "6" "6"

如果元素之间只有一个空格,则创建一个索引,如OP的帖子中所示,然后用减去1的索引对应的元素进行替换

i1 <- which(string == "")
string[i1] <- string[i1-1]
i1