Re: [R] Parsing Complex Text in Single Cell

[Rui Barradas]

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@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@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.