An embedded and charset-unspecified text was scrubbed... Name: not available URL: <https://stat.ethz.ch/pipermail/r-help/attachments/20101004/de9930d0/attachment.pl>
Reading data into
2 messages · Federman, Douglas, jim holtman
try this:
input <- readLines(textConnection("a 1 89 2 79 3 92
+ b 3 45 4 65"))
closeAllConnections()
# now parse each line to create a dataframe with each row being the score
result <- NULL
for (i in input){
+ x <- strsplit(i, '[[:space:]]+')[[1]]
+ x.l <- length(x)
+ result <- rbind(result,
+ data.frame(judge = paste("Judge_", rep(x[1], x.l %/% 2), sep = ''),
+ poster = as.integer(x[seq(2, x.l, 2)]),
+ score = as.integer(x[seq(3, x.l, 2)]),
+ stringsAsFactors = FALSE))
+ }
require(reshape) cast(result, poster ~ judge, value = 'score')
poster Judge_a Judge_b 1 1 89 NA 2 2 79 NA 3 3 92 45 4 4 NA 65 On Mon, Oct 4, 2010 at 4:19 PM, Federman, Douglas
<Douglas.Federman at utoledo.edu> wrote:
I have data in the following form: judge poster score poster score poster score a ? ? ? ? ? ?1 ? ? ? ? ? 89 ? ? ? ? 2 ? ? ? ? ?79 ? ? ?3 ? ? ? ? ? ?92 b ? ? ? ? ? 3 ? ? ? ? ? 45 ? ? ? ? 4 ? ? ? ? ?65 and am trying to get it to the following: Poster ?Judge_A ?Judge_B Judge_C 1 ? ? ? ? ? ? ? ? ?89 2 ? ? ? ? ? ? ? ? ?79 3 ? ? ? ? ? ? ? ? ?92 ? ? ? 45 4 ? ? ? ? ? ? ? ? ? ? ? ? ? ? 65 Any hints would be appreciated. ? ? ? ?[[alternative HTML version deleted]]
______________________________________________ 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.
Jim Holtman Cincinnati, OH +1 513 646 9390 What is the problem that you are trying to solve?