R :

2013-08-30 3 views
0

바보 같은 질문 준비 시간 시리즈의 플로팅 복제는 ... R :

는이 같은 조금 보이는 큰 데이터 세트가 ..

structure(list(V1 = structure(c(4L, 3L, 6L, 5L, 1L, 2L), .Label = c("1012", 
"225", "58", "602", "62", "818"), class = "factor"), V2 = structure(c(4L, 
3L, 6L, 5L, 1L, 2L), .Label = c("1012", "249", "58", "603", "62", 
"824"), class = "factor"), V3 = structure(c(6L, 2L, 5L, 4L, 1L, 
3L), .Label = c("1014", "117", "290", "442", "831", "992"), class = "factor"), 
V4 = structure(c(6L, 3L, 5L, 2L, 1L, 4L), .Label = c("1033", 
"1055", "166", "377", "831", "992"), class = "factor"), V5 = structure(c(3L, 
4L, 6L, 2L, 1L, 5L), .Label = c("1033", "1067", "1575", "190", 
"378", "832"), class = "factor"), V6 = structure(c(3L, 4L, 
6L, 2L, 1L, 5L), .Label = c("1034", "1069", "1575", "221", 
"379", "833"), class = "factor"), V7 = structure(c(3L, 5L, 
6L, 2L, 1L, 4L), .Label = c("1063", "1092", "2351", "379", 
"406", "834"), class = "factor")), .Names = c("V1", "V2", 
"V3", "V4", "V5", "V6", "V7"), class = "data.frame", row.names = c(NA, 
6L)) 

각 행은 하나의 표현 제목을 따르며 각 열을 따라 움직이는 각 값은 쥐가 레버를 눌렀을 때의 세션 시간 (초)을 나타냅니다. ggplot을 사용하여 this과 유사한 그림을 만들고 싶습니다. 그러나 ggplot이 x와 y라는 별개의 이름을 원하는 것처럼 보이기 때문에 시계열을 그리는 방법을 알아낼 수 없습니다. 나는 노동 집약적 인 방법으로 일할 수 있다고 생각할 수 있지만, 나는 단순한 무언가를 놓치고 있다는 것을 알고있다.

+0

ggplot2 함수는 긴 형식의 데이터로 작동합니다. 긴 형식으로 변환하려면이 데이터에서 reshape2 :: melt를 사용해야합니다. 그런 다음 케이크 조각이어야합니다. (그리고 SO에 관한 많은 예제가 있어야합니다.) –

+0

나는 그것을 조사 할 것이다. 감사! 다양한 기능으로 잘 작동하도록 데이터를 R 형식으로 만드는 겉으로보기에는 끝이없는 방법으로 머리를 감싼다. – user2510207

답변

0

DWin은 위의 설명에서 이에 대한 답변을 제공했습니다. 나는 비슷한 경험 부족으로 누구든지이 걸림돌에 빠지면 조금 더 확장 할 수 있다고 생각했다. 내 솔루션은 인수의 구조를 배우는 빠른 방법으로 reshapeGUI 패키지를 설치하는 것이 었습니다.

GUI를로드 한 후에 나는 위의 데이터를했다 "주제"라는 새로운 컬럼에 행 번호를 만들어 나에게 쉽게로 꾸몄다 아래에 설명 된 구조를 준 다음

test.melt <- melt(data = test, id.vars=c('Subjects'),  
measure.vars=c('V1','V2','V3','V4','V5','V6','V7')) 

를 실행 각 복제/대상에 대한 값을 보여주는 시계열 ...

structure(list(subject = c("1", "2", "3", "4", "5", "6", "1", 
"2", "3", "4", "5", "6", "1", "2", "3", "4", "5", "6", "1", "2", 
"3", "4", "5", "6", "1", "2", "3", "4", "5", "6", "1", "2", "3", 
"4", "5", "6", "1", "2", "3", "4", "5", "6"), response = structure(c(1L, 
1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 3L, 
3L, 4L, 4L, 4L, 4L, 4L, 4L, 5L, 5L, 5L, 5L, 5L, 5L, 6L, 6L, 6L, 
6L, 6L, 6L, 7L, 7L, 7L, 7L, 7L, 7L), .Label = c("V1", "V2", "V3", 
"V4", "V5", "V6", "V7"), class = "factor"), time = c("602", "58", 
"818", "62", "1012", "225", "603", "58", "824", "62", "1012", 
"249", "992", "117", "831", "442", "1014", "290", "992", "166", 
"831", "1055", "1033", "377", "1575", "190", "832", "1067", "1033", 
"378", "1575", "221", "833", "1069", "1034", "379", "2351", "406", 
"834", "1092", "1063", "379")), .Names = c("subject", "response", 
"time"), row.names = c(NA, -42L), class = "data.frame") 

감사합니다. DWin.