Warning: file_get_contents(/data/phpspider/zhask/data//catemap/4/r/81.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
文本中的data.frame_R_Dataframe - Fatal编程技术网

文本中的data.frame

文本中的data.frame,r,dataframe,R,Dataframe,我有一个文本(来自一个只有一行的文本文件),类似于helloworld 我想将此文本转换为如下所示的data.frame V1 V2 1 h 0 1 e 1 1 l 0 1 l 0 1 o 1 1 <SPACE> NA 1 w 0 1 o 1 1 r 0 1 l 0 1 d 0 V1 V2 1h0 1 e 1 1l0 1l0 1 o 1 1 NA 1 w 0 1 o 1 1R0 1l0 1d0 所有VAL的值均应为1,所有其他字母的值均应为0,且均应为

我有一个文本(来自一个只有一行的文本文件),类似于
helloworld

我想将此文本转换为如下所示的data.frame

  V1 V2
1  h 0
1  e 1
1  l 0
1  l 0
1  o 1
1  <SPACE>  NA
1  w 0
1  o 1
1  r 0
1  l 0
1  d 0
V1 V2
1h0
1 e 1
1l0
1l0
1 o 1
1 NA
1 w 0
1 o 1
1R0
1l0
1d0
所有VAL的值均应为1,所有其他字母的值均应为0,且均应为NA


我怎样才能做到这一点

您可以使用
strsplit
拆分字符串,并使用
grepl
查找元音:

mystring <- "hello world"
df <- data.frame(V1 = unlist(strsplit(mystring, "")))
df$V2 <- as.numeric(grepl("[aeiou]", df$V1))

>df
#   V1 V2
#1   h  0
#2   e  1
#3   l  0
#4   l  0
#5   o  1
#6      0
#7   w  0
#8   o  1
#9   r  0
#10  l  0
#11  d  0
df$V2 <- ifelse(df$V1 == " ", NA, df$V2)