나는 지난 달에 R에 익숙해졌습니다.
내 질문은 다음과 같습니다.
안정적인 매핑이있는 ggplot2의 범주 형 변수에 색상을 할당하는 좋은 방법은 무엇입니까? 서브 세트와 개수가 다른 범주 형 변수가있는 그래프 세트에서 일관된 색상이 필요합니다.
예를 들어
plot1 <- ggplot(data, aes(xData, yData,color=categoricaldData)) + geom_line()여기서 categoricalData5 단계가 있습니다.
그리고
plot2 <- ggplot(data.subset, aes(xData.subset, yData.subset,
color=categoricaldData.subset)) + geom_line()여기서 categoricalData.subset3 레벨이 있습니다.
그러나 두 세트에있는 특정 레벨은 다른 색상으로 끝나므로 그래프를 함께 읽기가 더 어렵습니다.
데이터 프레임에 색 벡터를 만들어야합니까? 아니면 특정 색상을 범주에 할당하는 다른 방법이 있습니까?
답변
OP의 정확한 예와 같은 간단한 상황에서는 Thierry의 답변이 가장 좋습니다. 그러나 하나의 큰 데이터 프레임을 하위 집합으로 설정하여 얻을 수 없는 여러 데이터 프레임에서 일관된 색 구성표를 유지하려고 할 때 더 쉬워지는 또 다른 접근법을 지적하는 것이 유용하다고 생각합니다 . 여러 데이터 프레임에서 요인 수준을 관리하면 별도의 파일에서 가져와 모든 요인 수준이 각 파일에 나타나지 않는 경우 지루할 수 있습니다.
이 문제를 해결하는 한 가지 방법은 다음과 같이 사용자 지정 수동 컬러 스케일을 만드는 것입니다.
#Some test data
dat <- data.frame(x=runif(10),y=runif(10),
grp = rep(LETTERS[1:5],each = 2),stringsAsFactors = TRUE)
#Create a custom color scale
library(RColorBrewer)
myColors <- brewer.pal(5,"Set1")
names(myColors) <- levels(dat$grp)
colScale <- scale_colour_manual(name = "grp",values = myColors)그런 다음 필요에 따라 색상 스케일을 플롯에 추가하십시오.
#One plot with all the data
p <- ggplot(dat,aes(x,y,colour = grp)) + geom_point()
p1 <- p + colScale
#A second plot with only four of the levels
p2 <- p %+% droplevels(subset(dat[4:10,])) + colScale첫 번째 줄거리는 다음과 같습니다.
두 번째 줄거리는 다음과 같습니다.
이 방법으로 각 데이터 프레임을 기억하거나 점검 할 필요가 없어 적절한 레벨이 있는지 확인할 수 있습니다.
답변
나는 malcook 이 그의 의견 에서 지적한 것과 같은 상황에 처해 있다 . 불행히도 Thierry 의 대답 은 ggplot2 버전 0.9.3.1에서 작동하지 않습니다.
png("figure_%d.png")
set.seed(2014)
library(ggplot2)
dataset <- data.frame(category = rep(LETTERS[1:5], 100),
x = rnorm(500, mean = rep(1:5, 100)),
y = rnorm(500, mean = rep(1:5, 100)))
dataset$fCategory <- factor(dataset$category)
subdata <- subset(dataset, category %in% c("A", "D", "E"))
ggplot(dataset, aes(x = x, y = y, colour = fCategory)) + geom_point()
ggplot(subdata, aes(x = x, y = y, colour = fCategory)) + geom_point()여기 첫 번째 그림이 있습니다.
두 번째 그림 :
보시다시피 색상이 고정되어 있지 않습니다. 예를 들어 E는 자홍색에서 파란색으로 바뀝니다.
에 의해 제안 malcook 에서 자신의 의견 과에 의해 해들리 에서 자신의 의견 사용하는 코드 limits일을 제대로 :
ggplot(subdata, aes(x = x, y = y, colour = fCategory)) +
geom_point() +
scale_colour_discrete(drop=TRUE,
limits = levels(dataset$fCategory))올바른 다음 그림을 제공합니다.
이 결과는 다음과 sessionInfo()같습니다.
R version 3.0.2 (2013-09-25)
Platform: x86_64-pc-linux-gnu (64-bit)
locale:
[1] LC_CTYPE=en_US.UTF-8 LC_NUMERIC=C
[3] LC_TIME=en_US.UTF-8 LC_COLLATE=en_US.UTF-8
[5] LC_MONETARY=en_US.UTF-8 LC_MESSAGES=en_US.UTF-8
[7] LC_PAPER=en_US.UTF-8 LC_NAME=C
[9] LC_ADDRESS=C LC_TELEPHONE=C
[11] LC_MEASUREMENT=en_US.UTF-8 LC_IDENTIFICATION=C
attached base packages:
[1] methods stats graphics grDevices utils datasets base
other attached packages:
[1] ggplot2_0.9.3.1
loaded via a namespace (and not attached):
[1] colorspace_1.2-4 dichromat_2.0-0 digest_0.6.4 grid_3.0.2
[5] gtable_0.1.2 labeling_0.2 MASS_7.3-29 munsell_0.4.2
[9] plyr_1.8 proto_0.3-10 RColorBrewer_1.0-5 reshape2_1.2.2
[13] scales_0.2.3 stringr_0.6.2 답변
가장 쉬운 해결책은 범주 형 변수를 하위 설정 전에 요인으로 변환하는 것입니다. 결론은 모든 부분 집합에서 정확히 같은 수준의 요인 변수가 필요하다는 것입니다.
library(ggplot2)
dataset <- data.frame(category = rep(LETTERS[1:5], 100),
x = rnorm(500, mean = rep(1:5, 100)), y = rnorm(500, mean = rep(1:5, 100)))
dataset$fCategory <- factor(dataset$category)
subdata <- subset(dataset, category %in% c("A", "D", "E"))문자 변수
ggplot(dataset, aes(x = x, y = y, colour = category)) + geom_point()
ggplot(subdata, aes(x = x, y = y, colour = category)) + geom_point()요인 변수
ggplot(dataset, aes(x = x, y = y, colour = fCategory)) + geom_point()
ggplot(subdata, aes(x = x, y = y, colour = fCategory)) + geom_point()답변
이 글은 오래된 글이지만 같은 질문에 대한 답을 찾고있었습니다.
다음과 같은 것을 시도해보십시오.
scale_color_manual(values = c("foo" = "#999999", "bar" = "#E69F00"))범주 형 값이 있다면 이것이 작동하지 않는 이유를 알 수 없습니다.
답변
joran의 매우 유용한 답변을 바탕으로 부울 팩터 ( TRUE, FALSE) 의 안정적인 색상 스케일을 위해이 솔루션을 만들 수있었습니다 .
boolColors <- as.character(c("TRUE"="#5aae61", "FALSE"="#7b3294"))
boolScale <- scale_colour_manual(name="myboolean", values=boolColors)
ggplot(myDataFrame, aes(date, duration)) +
geom_point(aes(colour = myboolean)) +
boolScaleColorBrewer는 이진 색상 스케일에 큰 도움이되지 않기 때문에 필요한 두 가지 색상이 수동으로 정의됩니다.
TRUE / FALSE 인수 myboolean를 myDataFrame보유한 열의 이름은 다음과 같습니다 . date및 duration은 x에 매핑되는 열 이름이고 Y는 본 실시 예에서의 플롯 축.
답변
