thr3ads.net - R help - [R] Parsing Complex Text in Single Cell [Jan 2014]

If this information is useful, please help other people find it:
Share via:

Patzelt, Edward

2014-Jan-29 22:14 UTC

[R] Parsing Complex Text in Single Cell

R Experts -

We have a complex problem whereby Qualtrics exported our data into a single
cell as seen below.

We attempted to parse it using scan() without much success. Hoping to get a
little nudge here. I've posted the full data set here:
https://www.dropbox.com/s/e246uiui6jrux6c/CoopandSelfControl_N90_1.24.14_GNGData.csv

{"trial":1,"corr":1,"resp_dur":799,"stim":"â†**â†**â†**â†**â†**","cond
":"congruent"},{"trial":2,"corr":1,"resp_dur":0,"stim":"xxâ†’xx","cond":"
nogo"},{"trial":3,"corr":0,"resp_dur":null,"stim":"â†**â†**â†’â†**â†**
","cond":"incongruent"},{"trial":4,"corr":1,"resp_dur":528,"stim":"
â†’â†’â†’â†’â†’","cond":"congruent"},{"trial":5,"corr":0,"resp_dur":null,"
stim":"â–¡â–¡â†’â–¡â–¡","cond":"neutral"},{"trial":6,"corr":0,"resp_dur
":574,"stim":"â†’â†’â†**â†’â†’","cond":"incongruent"},{"trial":7,"corr":1,"
resp_dur":541,"stim":"â–¡â–¡â†’â–¡â–¡","cond":"neutral"},{"trial":8,"corr
":1,"resp_dur":500,"stim":"â–¡â–¡â†**â–¡â–¡","cond":"neutral"},{"trial":9,"
corr":1,"resp_dur":0,"stim":"xxâ†’xx","cond":"nogo"},{"trial":10,"corr":0,"
resp_dur":637,"stim":"â†**â†**â†’â†**â†**","cond":"incongruent"}]


Cheers,


Edward

-- 

*Edward H Patzelt | Clinical Science Phd StudentPsychology | Harvard
University | Northwest Science Building, 52 Oxford St. | Cambridge, MA
02138*

	[[alternative HTML version deleted]]

Rui Barradas

2014-Jan-30 11:34 UTC

head link

[R] Parsing Complex Text in Single Cell

Hello,

Maybe something like the following.


x <- scan(what = "character", text = '
{"trial":1,"corr":1,"resp_dur":799,"stim":"????
*??*???? *??*????
*??*???? *??*???? *??*","cond
":"congruent"},{"trial":2,"corr":1,"resp_dur":0,"stim":"xx????
???xx","cond":"
nogo"},{"trial":3,"corr":0,"resp_dur":null,"stim":"????
*??*????
*??*???? ??????? *??*???? *??*
","cond":"incongruent"},{"trial":4,"corr":1,"resp_dur":528,"stim":"
???? ??????? ??????? ??????? ??????? 
???","cond":"congruent"},{"trial":5,"corr":0,"resp_dur":null,"
stim":"?????????????????? 
?????????????????","cond":"neutral"},{"trial":6,"corr":0,"resp_dur
":574,"stim":"???? ??????? ??????? *??*???? ??????? 
???","cond":"incongruent"},{"trial":7,"corr":1,"
resp_dur":541,"stim":"?????????????????? 
?????????????????","cond":"neutral"},{"trial":8,"corr
":1,"resp_dur":500,"stim":"?????????????????? 
*??*??????????????","cond":"neutral"},{"trial":9,"
corr":1,"resp_dur":0,"stim":"xx???? 
???xx","cond":"nogo"},{"trial":10,"corr":0,"
resp_dur":637,"stim":"???? *??*???? *??*???? ???????
*??*????
*??*","cond":"incongruent"}]')


x <- paste(x, collapse = ' ')
x <- gsub('"', '', x)
x <- gsub('\\]', '', x)

y <- unlist(strsplit(x, "\\{"))
y <- sub("\\}", "", y)
y <- y[y != ""]
y <- strsplit(y, ",")

fun <- function(x){
	y <- strsplit(x, ":")
	z <- lapply(y, '[[', 2)
	z[1:3] <- lapply(z[1:3], as.numeric)
	z <- as.data.frame(t(unlist(z)))
	z
}

res <- do.call(rbind, lapply(y, fun))
names(res) <- lapply(strsplit(y[[1]], ":"), '[[', 1)
res


Note that the two warnings are ok, they are due to the two values 'null'
in your data, that are coerced to NA.

Hope this helps,

Rui Barradas

Em 29-01-2014 22:14, Patzelt, Edward escreveu:> R Experts -
>
> We have a complex problem whereby Qualtrics exported our data into a single
> cell as seen below.
>
> We attempted to parse it using scan() without much success. Hoping to get a
> little nudge here. I've posted the full data set here:
>
https://www.dropbox.com/s/e246uiui6jrux6c/CoopandSelfControl_N90_1.24.14_GNGData.csv
>
>
{"trial":1,"corr":1,"resp_dur":799,"stim":"????
*??*???? *??*???? *??*???? *??*???? *??*","cond
>
":"congruent"},{"trial":2,"corr":1,"resp_dur":0,"stim":"xx????
???xx","cond":"
>
nogo"},{"trial":3,"corr":0,"resp_dur":null,"stim":"????
*??*???? *??*???? ??????? *??*???? *??*
>
","cond":"incongruent"},{"trial":4,"corr":1,"resp_dur":528,"stim":"
> ???? ??????? ??????? ??????? ???????
???","cond":"congruent"},{"trial":5,"corr":0,"resp_dur":null,"
> stim":"??????????????????
?????????????????","cond":"neutral"},{"trial":6,"corr":0,"resp_dur
> ":574,"stim":"???? ??????? ??????? *??*???? ???????
???","cond":"incongruent"},{"trial":7,"corr":1,"
> resp_dur":541,"stim":"??????????????????
?????????????????","cond":"neutral"},{"trial":8,"corr
> ":1,"resp_dur":500,"stim":"??????????????????
*??*??????????????","cond":"neutral"},{"trial":9,"
> corr":1,"resp_dur":0,"stim":"xx????
???xx","cond":"nogo"},{"trial":10,"corr":0,"
> resp_dur":637,"stim":"???? *??*???? *??*???? ???????
*??*???? *??*","cond":"incongruent"}]
>
>
> Cheers,
>
>
> Edward
>
>
>
> ______________________________________________
> R-help at r-project.org mailing list
> https://stat.ethz.ch/mailman/listinfo/r-help
> PLEASE do read the posting guide
http://www.R-project.org/posting-guide.html
> and provide commented, minimal, self-contained, reproducible code.
>

R help - Jan 2014 - Parsing Complex Text in Single Cell

[R] Parsing Complex Text in Single Cell

[R] Parsing Complex Text in Single Cell