facet_wrap 레이블이있는 분산 형 플롯

"Date"기간 동안 "Total_Sale"과 "Margin"사이의 관계를 설명하기 위해 facet_wrap을 사용하려고했습니다. 이 산점도의 각 점은 하나의 "제품"이됩니다. 아래의 코드를 하나의 "날짜"에 적용하면 레이블이 정확하지만 더 많은 "날짜"로 확장하려고하면 레이블이 손실됩니다. 내 데이터 아래에서 찾으십시오. 좀 더 "날짜"를 확장 할 때facet_wrap 레이블이있는 분산 형 플롯

그러나

p <- qplot(Total_Sale,Margin ,data = dataauxiliarymult[dataauxiliarymult$Date=="2014-01-01",],xmax=1.5*max(Total_Sale),label=str_sub(dataauxiliarymult[dataauxiliarymult$Date=="2014-01-01" ,]$Products,1,11),colour=Units_Sold,size = Ratio) + 
     facet_wrap(~Date) + 
     geom_point()+ 
     geom_text(angle =0,family = "mono",size=3,hjust=0, vjust=0, colour="grey50")

,이 분실 : 여기

dput(data) 

structure(list(Products = c("K-OTHRINE_SC__30_ML", "K-OTHRINE_SC__30_ML", 
"TERRAMICINA_LA_50ML", "RODILON_R_PELLETS_25GR", "DECTOMAX_INJ._50ML", 
"RODILON_R_PELLETS_25GR", "OCITOPEC_INJ._50ML"), Date = structure(c(1L, 
2L, 1L, 1L, 1L, 2L, 1L), .Label = c("2014-01-01", "2014-02-01", 
"2014-03-01", "2014-04-01", "2014-05-01", "2014-06-01", "2014-07-01", 
"2014-08-01", "2014-09-01", "2014-10-01"), class = "factor"), 
    Units_Sold = c(113710, 87061, 28551, 23843, 19761, 16469, 
    16060), Total_Sale = c(532764.61, 406119.99, 231751.87, 20082.12, 
    217633.92, 13830.56, 72002.93), Margin = c(0.205133153739965, 
    0.209605483356955, 0.0698413978494625, 0.362371134020619, 
    0.123838046272494, 0.348102139406487, 0.27636316872428), 
    Ratio = c(0.179930281169745, 0.137761940101303, 0.045177991888817, 
    0.0377282358097812, 0.0312690377820361, 0.0260599050266865, 
    0.0254127193350286)), .Names = c("Products", "Date", "Units_Sold", 
"Total_Sale", "Margin", "Ratio"), row.names = c(3L, 4L, 16L, 
19L, 27L, 35L, 37L), class = "data.frame")

및

내가 다른 사람에게 "날짜"를 복제하고 싶은 정확한 출력 코드입니다.

p <- qplot(Total_Sale,Margin ,data = dataauxiliarymult[dataauxiliarymult$Date=="2014-01-01" | dataauxiliarymult$Date=="2014-02-01" ,],xmax=1.5*max(Total_Sale),label=str_sub(dataauxiliarymult[dataauxiliarymult$Date=="2014-01-01"| dataauxiliarymult$Date=="2014-02-01" ,]$Products,1,11),colour=Units_Sold,size = Ratio) + 
    facet_wrap(~Date, ncol=3) + 
    geom_point()+ 
    geom_text(angle =0,family = "mono",size=3,hjust=0, vjust=0, colour="grey50")

출처

2014-11-25 unmark1

당신이 기대하는 것을 취소하지 않습니다. 두 번째 코드 스 니펫은 두 개의 날짜를 가지고 있기 때문에 두 개의 패싯을 생성합니다. – jlhoward

나는 무엇이 문제인지 이해한다고 생각합니다. geom_text의 레이블을 지정하는 방식이 잘못되었습니다. 다음을 사용하여 작동하는지 알려주십시오.

dataauxiliarymult$Date=as.Date(dataauxiliarymult$Date) 

ggplot(dataauxiliarymult,aes(Total_Sale,Margin,label=str_sub(Products,1,11),colour=Units_Sold,size = Ratio))+ 
geom_point()+ 
facet_wrap(~Date, ncol=3)+ 
geom_text(angle =0,family = "mono",size=3,hjust=0, vjust=0, colour="grey50")

감사

출처

2014-11-26 09:42:06 Nikos

facet_wrap 레이블이있는 분산 형 플롯

답변

관련 문제