누적 막대 그림에 대한 변수의 16 진수 코드 매핑 R

Question

데이터 프레임 "df"에는 4 개의 필드가 있습니다. "재산"코드 (nlith < - nlevels (df $ property = 26) )를 사용하여 채워진 x = "wellid", y = "Freq"(모든 wellid에 대해 1로 집계 됨)의 누적 가로 막 대형을 그릴 수 있습니다. . 각각의 "속성"코드가 생성되고

몇 레코드 "DF"에서 DF 제 4 필드 "hexcolor"로 저장하는 특정 진수 컬러 코드를 할당하면 다음과 같다

 property  wellid Freq hexcolor 
    225  BIR 009410X 0.048951049 #7F55D4 
    226  BIR 009910X 0.060150376 #7F55D4 
    227  BIR 010810X 0.000000000 #7F55D4 
    228  BIR 011010X 0.093959732 #7F55D4 
    299  BJR 065010X 0.000000000 #7F7FD4 
    300  BJR 065610X 0.006451613 #7F7FD4 
    301  BKP 006610X 0.198473282 #7FD455 
    302  BKP 009010X 0.187050360 #7FD455 
    303  BKP 009110X 0.069767442 #7FD455 

은 "속성 "-"hexcolor "참조는이 데이터 프레임과 같습니다.

  property hexcolor 
    1   CIR #D455D4 
    9   CJR #D47FD4 
    10  CJQ #D47F7F 
    11  CKQ #D4D47F 
    23  BKP #7FD455 
    24  BKQ #7FD47F 
    25  BJQ #7F7F7F 
    53  AJP #557F55 
    54  AKP #55D455 
    64  AJQ #557F7F 
    85  BJP #7F7F55 
    103  BIQ #7F557F 
    116  AJR #557FD4 
    118  AIR #5555D4 
    121  BIR #7F55D4 
    234  CKP #D4D455 
    244  AIQ #55557F 
    285  CJP #D47F55 
    327  AKQ #55D47F 
    505  BJR #7F7FD4 
    537  CIQ #D4557F 
    1901  JQ #007F7F 
    1909  IR #0055D4 
    2363  A #550000 
    2365  B #70000F 
    2387   #000000 

ggplot의 geom_bar() 코드는 정확한 그래프를 제작 시도 -하지만 기본 색상 테이블 :

plt <- ggplot(df, aes(x= wellid, y= Freq, fill= property)) + geom_bar(stat = "identity") 
    plt + theme(axis.text.x = element_text(angle = 90, size = 10)) 

하면 데이터 프레임 "DF"의 "hexcolor"방식을 사용하여이 사진을 컬러 코드에 대한 지침이 필요합니다. 성공하지 않고 조금 노력했다! 솔루션을 가리키는 대한 alistaire에

Answer 1

감사합니다 :

지침은 생산에서 :: scale_fill_manual based on another factor in ggplot2

plt <- ggplot(df, aes(x= wellid, y= Freq, fill= property)) + geom_bar(stat = "identity") + 
    theme(axis.text.x = element_text(angle = 90, size = 10)) 
    plt + scale_fill_manual(values = as.character(fourcol$hexcolor))