ggplot2를 사용하는 NP 차트 ​​

Question

ggplot2를 사용하여 NP 차트를 생성하는 방법은 무엇입니까?

막대 그래프, 포인트 차트를 생성하는 간단한 Rscript를 만들었습니다. CSV 파일로 데이터를 제공하고 있습니다. 얼마나 많은 컬럼을 지정해야하고 gplot 함수에서 어떤 인수를 전달해야합니까?

저는 R에 매우 익숙합니다. ggplots입니다.

편집 : This은 NP 차트의 의미입니다.

현재 코드 시도 : 내가 Rscript cne.R 11_16.pdf "point" "data.csv"하여이 스크립트를 호출 Y .CSV 파일에서

#load library ggplot2 
library(ggplot2) 

#get arguments 
args <- commandArgs(TRUE) 
pdfname <- args[1] 
graphtype <- args[2] 
datafile <- args[3] 

#read csv file 
tasks <- read.csv(datafile , header = T) 
#name the pdf from passed arg 1 
pdf(pdfname) 

#main magic that generates the graph 
qplot(x,y, data=tasks, geom = graphtype) 
#clean up 
dev.off() 

2 열 X가 있습니다. 대단히 @이 mathematical.coffee

---

덕분에 내가 필요하지만
1> 내가 CSV 파일에서 데이터를 읽는하고 다음 포함 된 데이터

이 내 데이터입니다

월, 속도 " 월 ","37.50 " "2월 ","32.94 " "월 ","25.00 " "4월 ","33.33 " "월 ","33.08 " "6월 ","29.09 " "7월 " , "12.00" "Aug", "10.00" "9 월", "6.00" "시월", "23.00" "11월", "9.00" "12월", "14.00"

2> 나는 각각의 플로팅 포인트에 값을 표시합니다. 또한 UCL, Cl, LCL에 대한 값을 표시하고 x 및 y에 다른 레이블을 제공합니다.

문제 데이터를 읽을 때 문제가 csv 파일에서와 같은 순서가 아닙니다. 그것을 고치는 방법?

Answer 1

ggplot(tasks,aes(x=x,y=y))과 geom_line 및 geom_point을 결합하여 포인트로 연결된 행을 얻습니다.

추가로 UCL/LCL/등을 그리려면 geom_hline (가로줄)을 추가하십시오. 이 줄에 텍스트를 추가하려면 geom_text을 사용할 수 있습니다.

예 :

library(ggplot2) 

# generate some data to use, say monthly up to a year from today. 
n <- 12 
tasks <- data.frame(
    x = seq(Sys.Date(),by="month",length=n), 
    y = runif(n)) 
CL = median(tasks$y)  # substitue however you calculate CL here 
LCL = quantile(tasks$y,.25) # substitue however you calculate LCL here 
UCL = quantile(tasks$y,.75) # substitue however you calculate UCL here 
limits = c(UCL,CL,LCL) 
lbls = c('UCL','CL','LCL') 

p <- ggplot(tasks,aes(x=x,y=y)) +   # store x/y values 
    geom_line() +       # add line 
    geom_point(aes(colour=(y>LCL&y<UCL))) + # add points, colour if outside limits 
    opts(legend.position='none',   # remove legend for colours 
      axis.text.x=theme_text(angle=90)) # rotate x axis labels 

# Now add in the limits. 
# horizontal lines + dashed for upper/lower and solid for the CL 
p <- p + geom_hline(aes(yintercept=limits,linetype=lbls)) +   # draw lines 
    geom_text(aes(y=limits,x=tasks$x[n],label=lbls,vjust=-0.2,cex=.8)) # draw text 

# display 
print(p) 

제공 : 당신이 시도 무엇