개수로 ggplot2의 밀도 플롯에 레이블 지정

debugcn 에 게시 Dev

박사 학위

질문

밀도 플롯을 따라 관찰 수를 표시하는 레이블을 추가하는 방법은 무엇입니까?

데이터

내 데이터 세트 :

mwe <- structure(list(Gender = structure(c(2L, 2L, 2L, 2L, 2L, 2L, 2L, 
2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 
2L, 2L, 2L, 2L, 2L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 
2L, 2L, 2L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 
1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 
2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 
2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 1L, 
1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 
1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 
2L, 2L, 2L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 
2L, 2L, 2L, 2L, 2L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 
1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 
1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 
2L, 2L, 2L, 2L, 2L, 2L, 2L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 
1L, 1L, 1L), .Label = c("Female", "Male"), class = "factor"), 
    Age = c(23, 23, 23, 23, 23, 23, 39, 39, 39, 39, 39, 39, 30, 
    30, 30, 30, 30, 30, 30, 30, 24, 24, 24, 24, 24, 24, 24, 24, 
    18, 18, 18, 18, 18, 18, 23, 23, 23, 23, 23, 23, 23, 23, 26, 
    26, 26, 26, 26, 26, 23, 23, 23, 23, 23, 23, 23, 23, 23, 23, 
    23, 23, 23, 23, 30, 30, 30, 30, 30, 30, 20, 20, 20, 20, 20, 
    20, 25, 25, 25, 25, 25, 25, 25, 25, 23, 23, 23, 23, 23, 23, 
    23, 23, 38, 38, 38, 38, 38, 38, 22, 22, 22, 22, 22, 22, 29, 
    29, 29, 29, 29, 29, 21, 21, 21, 21, 21, 21, 23, 23, 23, 23, 
    23, 23, 25, 25, 25, 25, 25, 25, 24, 24, 24, 24, 24, 24, 21, 
    21, 21, 21, 21, 21, 27, 27, 27, 27, 27, 27, 24, 24, 24, 24, 
    24, 24, 21, 21, 21, 21, 21, 21, 21, 21, 21, 21, 21, 21, 23, 
    23, 23, 23, 23, 23, 23, 23, 23, 23, 23, 23, 23, 23, 21, 21, 
    21, 21, 27, 27, 27, 27, 27, 27, 34, 34, 34, 34, 34, 34, 26, 
    26, 26, 26, 26, 26, 26, 26, 28, 28, 28, 28, 28, 28, 39, 39, 
    39, 39, 39, 39, 26, 26, 26, 26, 26, 26), KmEuc = structure(c(1L, 
    1L, 1L, 1L, 3L, 3L, 2L, 2L, 3L, 3L, 2L, 3L, 2L, 2L, 3L, 3L, 
    3L, 3L, 3L, 3L, 3L, 2L, 3L, 3L, 2L, 2L, 3L, 3L, 3L, 3L, 3L, 
    3L, 3L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 3L, 3L, 1L, 1L, 1L, 1L, 
    1L, 1L, 3L, 2L, 1L, 1L, 1L, 1L, 3L, 2L, 3L, 3L, 3L, 2L, 3L, 
    2L, 2L, 2L, 3L, 2L, 3L, 2L, 2L, 2L, 3L, 3L, 2L, 3L, 2L, 2L, 
    3L, 2L, 3L, 3L, 2L, 3L, 2L, 2L, 3L, 3L, 2L, 2L, 2L, 2L, 2L, 
    2L, 3L, 3L, 2L, 3L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 3L, 3L, 
    3L, 3L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 3L, 3L, 3L, 3L, 3L, 2L, 
    2L, 3L, 3L, 2L, 2L, 2L, 2L, 3L, 3L, 2L, 2L, 2L, 3L, 3L, 3L, 
    2L, 3L, 2L, 2L, 3L, 3L, 3L, 3L, 2L, 2L, 3L, 3L, 3L, 3L, 2L, 
    2L, 3L, 3L, 3L, 3L, 2L, 2L, 3L, 3L, 2L, 2L, 2L, 2L, 3L, 3L, 
    3L, 2L, 3L, 3L, 2L, 2L, 3L, 3L, 3L, 2L, 2L, 2L, 3L, 3L, 2L, 
    2L, 3L, 3L, 2L, 2L, 3L, 2L, 3L, 3L, 3L, 3L, 2L, 2L, 3L, 3L, 
    3L, 2L, 3L, 3L, 2L, 3L, 3L, 3L, 3L, 3L, 2L, 3L, 2L, 2L, 2L, 
    2L, 2L, 2L, 2L, 3L, 3L, 3L), .Label = c("1", "2", "3"), class = "factor")), class = "data.frame", row.names = c(NA, 
-218L))

밀도 플롯을 사용하여 연령 분포를 표시하고 싶습니다.

암호

p1 <- ggplot() +
  geom_freqpoly(aes(x = Age, color = KmEuc), stat = 'density', position = 'dodge', data=mwe) +
  scale_color_manual(guide = guide_legend(),name = 'Clusters',values = c("#E31A1C","#332288", "#66A61E"), labels = c("Pie", "Carrot", "Rice")) +
  theme_light(base_size=14) +
  facet_grid(facets = Gender ~ .) +
  theme(axis.title.x = element_blank(),axis.title.y = element_blank())

시도

카운트 레이블을 추가하려면 다음을 시도했습니다.

dfLabels <- mwe %>%
  select(c(Age, Gender, KmEuc)) %>%
  group_by(Age, Gender, KmEuc) %>%
  dplyr::summarise(N = n())

p1 + geom_label(data = dfLabels, aes(x = Age, y = 0.01, label = N), size = 3, vjust = 0, hjust = 0)

이후 y=0.01난 단지 보여줄 수 Ny 축에 고정 된 줄에, 어떻게 만들려면 N이 경우에는 밀도 함수를 따라 나타 납니까?

스테판

이 시도. 카운트 계산 외에도 각 연령에 대한 밀도도 계산합니다. 여기 에서 일반적인 아이디어를 빌 렸지만 문제에 적용하고 tidyverse접근 방식을 사용했습니다 .

library(ggplot2)
library(purrr)
library(dplyr)
library(tidyr)

dfLabels <- mwe %>%
  select(Age, Gender, KmEuc) %>%
  group_by(Gender, KmEuc) %>%
  nest() %>% 
  # Compute density
  mutate(dens = purrr::map(data, ~ density(.$Age))) %>% 
  # Unique Ages
  mutate(age_uniq = purrr::map(data, ~ unique(.$Age))) %>%
  unnest(age_uniq)

dfLabels1 <- dfLabels %>%
  # Compute "y" by interpolation and count 
  mutate(label.y = purrr::map2_dbl(age_uniq, dens, ~approx(.y$x, .y$y, .x)$y),
         label.n = purrr::map2_dbl(age_uniq, data, ~ sum(.y$Age == .x))) %>% 
  select(Gender, KmEuc, Age = age_uniq, label.y, label.n)

p1 <- ggplot() +
  geom_freqpoly(aes(x = Age, color = KmEuc), stat = 'density', position = 'dodge', data=mwe) +
  geom_text(aes(x = Age, y = label.y, color = KmEuc, label = label.n), 
            position = 'dodge', vjust = 0, show.legend = FALSE, data=dfLabels1) +
  scale_color_manual(guide = guide_legend(),name = 'Clusters',values = c("#E31A1C","#332288", "#66A61E"), labels = c("Pie", "Carrot", "Rice")) +
  theme_light(base_size=14) +
  facet_grid(facets = Gender ~ .) +
  theme(axis.title.x = element_blank(),axis.title.y = element_blank())
p1
#> Warning: Width not defined. Set with `position_dodge(width = ?)`

#> Warning: Width not defined. Set with `position_dodge(width = ?)`

^{reprex 패키지 (v0.3.0)에 의해 2020-04-11에 생성됨}

이 기사는 인터넷에서 수집됩니다. 재 인쇄 할 때 출처를 알려주십시오.

침해가 발생한 경우 연락 주시기 바랍니다[email protected] 삭제

에서 수정2021-04-2

몇 마디 만하겠습니다

0리뷰

로그인참여 후 검토

Related 관련 기사

기사

개수로 ggplot2의 밀도 플롯에 레이블 지정

개수로 ggplot2의 밀도 플롯에 레이블 지정

밀도 플롯에 레이블 지정

단일 ggplot2에서 레이어 (밀도 플롯 및 수직선)를 정렬하는 방법

두 개의 플롯이 포함 된 산점도의 점에 레이블 지정

왜도 및 첨도 값으로 각 수치 밀도 플롯의 x 축 레이블 사용자 정의

ggplot2의 플롯에서 레이블 이름을 어떻게 밀어 낼 수 있습니까?

ggplot2의 다른 열로 y 축에 레이블 지정

ggplot2를 사용하여 하나의 결합 된 플롯에 밀도 및 누적 밀도 함수 플롯

ggplot2 R 플롯과 관련된 특정 지점에서 x 축 레이블 수정

ggplot2의 특정 지점에 레이블 지정

ggplot2 및 directlabels로 포인트에 레이블 지정

R에서 C3 플롯의 x 축 레이블 수정

샘플 ID로 ggplot2 상자 그림 점에 레이블 지정

지도에서 2 개의 범례 ggplot2를 독립적으로 이동

동일한 ggplot2 (R)에 음의 이항, 정규 및 포아송 밀도 함수를 맞추지 만 개수 데이터로 확장하는 방법은 무엇입니까?

ggplot2의 밀도 플롯에서 꼬리 연장

Matlab에서 이미지로 플롯에 레이블 지정

다중 x 축 ggplot2 또는 사용자 정의 레이블을 스택 막대 플롯에 추가

grid.arrange로 정렬 된 플롯에 레이블 지정

ggplot2 패키지로 선택한 중단에 레이블 지정

geom_text ()를 사용하여 ggplot의 서로 다른 플롯에서 두 개의 개별 점에 레이블을 지정합니다.

GGplot2에서 stat_summary로 구분 / 레이블 설정

플롯 된 Y 이외의 변수를 사용하여 누적 막대 차트에 레이블 지정

ggplot2 점이 플롯되지 않도록 방지

축 레이블에 지수 추가 (R / ggplot2)

중간에 선 플롯이있는 두 개의 미러링 된 밀도 곡선의 ggplot2 그림을 만듭니다 (또는 : R에서 드리프트 확산 모델 다이어그램 다시 만들기).

ggplot2를 사용한 이상한지도 플롯

SAS를 사용하여 플롯의 변수를 사용하여 관측치에 레이블 지정

섹션 누락없이 ggplot2에서 잘린 밀도 플롯을 그리는 방법

ggplot2 다른 데이터 세트에서 히스토그램과 밀도 플롯 혼합