3d 누적 가로 막 대형 (R)

Question

다음과 같이 데이터 프레임 mydf이 있습니다. A, C, G, T 열이 바 (샘플 플롯의 연도)로 표시되는 누적 3d 플롯 (아래의 샘플 플롯에 표시된 것처럼)을 플롯해야합니다. 길이 열의 범위는 각 file.name에 대해 18에서 34까지이며 예제 플롯에서와 같이 축의 길이가 Gas Type이되도록하려면 file.name 열이 아래의 표 그림과 같이 country axis에 있어야합니다. 어떻게 이것을 R로 표시 할 수 있습니까? 당신의 도움을 주셔서 감사합니다.

mydf <- structure(list(file.name = structure(c(1L, 1L, 2L, 2L, 4L, 4L 
    ), .Label = c("merged_read_counts", "DCL1_VF_1_GAGTGG_L008_R1_001", 
    "DCL1_VF_2_GGTAGC_L008_R1_001", "DCL2_VF_1_ACTGAT_L008_R1_001", 
    "DCL2_VF_2_ATGAGC_L008_R1_001", "DCLd_SSHADV1_1_AGTTCC_L008_R1_001", 
    "DCLd_SSHADV1_2_ATGTCA_L008_R1_001", "DCLd_SSHADV1_3_CCGTCC_L008_R1_001", 
    "DCLd_SSHV2L_1_GTAGAG_L008_R1_001", "DCLd_SSHV2L_2_GTCCGC_L008_R1_001", 
    "DCLd_SSHV2L_3_GTGAAA_L008_R1_001", "DCLd_VF_1_GTGGCC_L008_R1_001", 
    "DCLd_VF_2_GTTTCG_L008_R1_001", "DCLd_VF_3_CGTACG_L008_R1_001", 
    "WT_SSHADV1_1_GGCTAC_L008_R1_001", "WT_SSHADV1_2_CTTGTA_L008_R1_001", 
    "WT_SSHADV1_3_AGTCAA_L008_R1_001", "WT_SSHV2L_1_GCCAAT_L008_R1_001", 
    "WT_SSHV2L_2_CAGATC_L008_R1_001", "WT_SSHV2L_3_ACTTGA_L008_R1_001", 
    "WT_SSHV2L_4_GATCAG_L008_R1_001", "WT_SSHV2L_5_TAGCTT_L008_R1_001", 
    "WT_VF_1_ATCACG_L008_R1_001", "WT_VF_2_CGATGT_L008_R1_001", "WT_VF_3_TTAGGC_L008_R1_001", 
    "WT_VF_4_TGACCA_L008_R1_001", "WT_VF_5_ACAGTG_L008_R1_001"), class = "factor"), 
     length = c(18L, 19L, 18L, 19L, 18L, 19L), A = c(2294436L, 
     2588528L, 52104L, 47190L, 103378L, 59269L), C = c(1501040L, 
     2838174L, 35888L, 93922L, 38132L, 31912L), G = c(2106623L, 
     1714702L, 80765L, 64930L, 129040L, 161517L), T = c(5065628L, 
     7462881L, 62174L, 87905L, 274783L, 110125L)), .Names = c("file.name", 
    "length", "A", "C", "G", "T"), row.names = c(1L, 2L, 18L, 19L, 
    58L, 59L), class = "data.frame") 

Answer 1

나는 3 차원 막대 그래프가 ggplot (ggplot2 3D Bar Plot)에서 사용할 수 있습니다 생각하지 않습니다.

대신 그룹화 된 누적 막대 그래프를 제안합니다. 3D 막대 그래프의 설계 문제와 그가 제시하는 대안의

library(ggplot2) 
library(reshape2) 
df <- melt(mydf,id.vars=c("file.name","length")) 
ggplot(df, aes(x = file.name, y = value, fill = variable)) + 
    geom_bar(stat = 'identity', position = 'stack') + facet_grid(~ length)