R : 하나의 범례가있는 선과 기호를 그린 다음 일부 데이터를 강조 표시합니다.

Question

색, 선 유형 및 점 스타일이 서로 다른 선 및 점으로 일부 데이터를 플롯합니다. 그런 다음 첫 번째 플롯과 동일한 속성을 사용하여 데이터의 하위 집합을 플롯하려고합니다. 그런 다음 데이터의 하위 집합과 회색으로 표시된 선택되지 않은 데이터로 세 번째 그림을 만듭니다.

전설에는 3 개의 플롯에 대해 동일한 너비가 있고 10 개의 열이 있어야합니다.

다음은 라인과 일치하는 심볼 색상으로 내 "시도"하나의 전설이 선 유형과 색상도 기호의 변화의 변화를 표시되도록

# Create sample data 
set.seed(1) 
nSamples=1000 
dt<-data.table(src=sample(paste('SRC-',11:25,sep=''),nSamples,replace=TRUE), 
       id=sample(1001:1150,nSamples,replace=TRUE), 
       dhr=sample(seq(.1,2,.1),nSamples,replace=TRUE), 
       dcnt=sample(1:5,nSamples,replace=TRUE)) 
dt$hr<-ave(dt$dhr,dt$id,FUN=cumsum) 
dt$cnt<-ave(dt$dcnt,dt$id,FUN=cumsum) 

# Set plot characteristics 
dt$linetype <- factor((dt$id %% 4)+1) 
dt$color <- factor(dt$id) 
dt$shape <- factor((dt$id %% 6)+1) 

# Question 1: How to get the legend to correspond to the plot (color, linetype, symbol) 
# and have 10 columns 
ggplot(dt,aes(x=hr,y=cnt,group=id,color=color,linetype=linetype))+ 
    geom_line() + 
    geom_point(aes(shape=dt$shape))+ 
    ggtitle('All ID') + 
    xlab("Time (hr)") + 
    ylab("Repair (Part count)") + 
    guides(color=guide_legend(ncol=10,title='ID')) 

# Question 2: Select some source data to be plotted. 
# How to plot with same 'colored' lines/symbols as plot 1 
srcIndex <- grep('SRC-14',dt$src) 
srcData<-dt[srcIndex,] 
nonsrcData<-dt[-srcIndex,] 

ggplot(data=NULL,aes(x=hr,y=cnt,group=id,color=color,linetype=linetype))+ 
# geom_line(data=nonsrcData, color='grey') + 
# geom_point(data=nonsrcData, color='grey', shape=nonsrcData$shape)+ 
    ggtitle('SRC-14 ID') + 
    xlab("Time (hr)") + 
    ylab("Repair (Part count)") + 
    geom_line(data=srcData) + 
    geom_point(data=srcData,aes(shape=srcData$shape))+ 
    guides(color=guide_legend(ncol=10,title='ID')) 

# Question 3: 
# How to plot the nonsource plot in part 1 with 'grey' lines/symbols, and then 
# overlay with 'colored' lines/symbols 

ggplot(data=NULL,aes(x=hr,y=cnt,group=id,color=color,linetype=linetype))+ 
    geom_line(data=nonsrcData, color='grey') + 
    geom_point(data=nonsrcData, color='grey', shape=nonsrcData$shape)+ 
    ggtitle('SRC-14 ID') + 
    xlab("Time (hr)") + 
    ylab("Repair (Part count)") + 
    geom_line(data=srcData) + 
    geom_point(data=srcData,aes(shape=srcData$shape))+ 
    guides(color=guide_legend(ncol=10,title='ID')) 

이 플롯은 수정 전설을 필요로한다 색깔. 또한 두 개의 추가 범례를 제거하십시오.

이 플롯 전설,도 1과 동일한 문제점 (들)을 갖는다. 눈금은 그림 1과 같아야합니다.

세 번째 그림은 두 번째 그림과 유사해야하며 다른 데이터는 회색으로 추가되어야합니다.

Answer 1

다음 코드는 올바른 범례가있는 3 개의 플롯을 생성합니다.

set.seed(1) 
nSamples=1000 
dt<-data.table(src=sample(paste('SRC-',11:25,sep=''),nSamples,replace=TRUE), 
       id=sample(1001:1150,nSamples,replace=TRUE), 
       dhr=sample(seq(.1,2,.1),nSamples,replace=TRUE), 
       dcnt=sample(1:5,nSamples,replace=TRUE)) 
dt$hr<-ave(dt$dhr,dt$id,FUN=cumsum) 
dt$cnt<-ave(dt$dcnt,dt$id,FUN=cumsum) 

# Set plot characteristics 
dt$linetype <- factor((dt$id %% 4)+1) 
dt$color <- factor(dt$id) 
dt$shape <- factor((dt$id %% 6)+1) 

# Question 1: How to get the legend to correspond to the plot (color, linetype, symbol) 
# and have 10 columns 
dt$id <- factor(dt$id) 
sortid<-order(dt$id) 
unik <- which(!duplicated(dt$id[sortid])) 
unik <- sortid[unik] 

ggplot(dt, aes(hr, cnt, group = id)) + 
    geom_line(size=1, aes(color=dt$color, linetype=dt$linetype)) + 
    geom_point(data = dt, 
      aes(hr, cnt, group = id, color = id, shape=shape),size=3) + 
    guides(colour = guide_legend(ncol=10,title='ID', 
           override.aes = list(shape = as.integer(dt$shape[unik]), 
                linetype = as.integer(dt$linetype[unik]))), 
     shape = FALSE, linetype = FALSE) + 
    ggtitle('ALL ID') + 
    xlab("Time (hr)") + 
    ylab("Repair (Part count)") + 
    xlim(0, 25) + ylim(0,60) 

# Question 2: Select some source data to be plotted. 
# How to plot with same 'colored' lines/symbols as plot 1 
srcIndex <- grep('SRC-14',dt$src) 
srcData<-dt[srcIndex,] 
nonsrcData<-dt[-srcIndex,] 

sort_src_id<-order(srcData$id) 
unik_src <- which(!duplicated(srcData$id[sort_src_id])) 
unik_src <- sort_src_id[unik_src] 

ggplot(srcData, aes(hr, cnt, group = id)) + 
    geom_line(size=1, aes(color=srcData$color, linetype=srcData$linetype)) + 
    geom_point(data = srcData, 
      aes(hr, cnt, group = id, color = id, shape=shape),size=3) + 
    guides(colour = guide_legend(ncol=10,title='ID', 
           override.aes = list(shape = as.integer(srcData$shape[unik_src]), 
                linetype = as.integer(srcData$linetype[unik_src]))), 
     shape = FALSE, linetype = FALSE) + 
    ggtitle('SRC-14') + 
    xlab("Time (hr)") + 
    ylab("Repair (Part count)") + 
    xlim(0, 25) + ylim(0,60) 


# Question 3: 
# How to plot the nonsource plot in part 1 with 'grey' lines/symbols, and then 
# overlay with 'colored' lines/symbols 

ggplot() + 
    geom_line(size=.5, color='grey', aes(x=nonsrcData$hr, 
             y=nonsrcData$cnt, 
             linetype=nonsrcData$linetype, 
             group=nonsrcData$id)) + 
    geom_point(size=1,color='grey',aes(x=nonsrcData$hr, 
            y=nonsrcData$cnt, 
            shape=nonsrcData$shape, 
            group=nonsrcData$id)) + 
    geom_line(data=srcData, size=1.5, aes(hr, cnt, 
         group = id, 
         color=color, linetype=linetype)) + 
    geom_point(data = srcData, size=3, 
      aes(hr, cnt, group = id, color = color, shape=shape)) + 
    guides(colour = guide_legend(ncol=10,title='ID', 
           override.aes = list(shape = as.integer(srcData$shape[unik_src]), 
                linetype = as.integer(srcData$linetype[unik_src]))), 
     shape = FALSE, linetype = FALSE) + 
    ggtitle('SRC-14') + 
    xlab("Time (hr)") + 
    ylab("Repair (Part count)") + 
    xlim(0, 25) + ylim(0,60) 

위의 코드는 3 개의 모든 플롯을 생성합니다. 범례가 수정 된 상태에서 모든 데이터를 보여주는 첫 번째 예입니다. 여기

는 범례

수정하여 상기 선택된 서브 세트를 나타내는 제 플롯이 강조