x 축을 인자로 사용하여 평활 선 (ggalt :: xspline) 플롯을 그리는 방법

다음 데이터 프레임이 있습니다.

  lp_dat <- structure(list(kmeans_cluster = c("1", "2", "3", "4", "1", "2", 
"3", "4", "1", "2", "3", "4"), tc = structure(c(2L, 2L, 2L, 2L, 
3L, 3L, 3L, 3L, 1L, 1L, 1L, 1L), .Label = c("NT", "IBD+PBS", 
"IBD+Serpin"), class = "factor"), n = c(924, 1389, 0, 652, 924, 
0, 0, 0, 110, 1389, 11851, 0)), row.names = c(NA, -12L), class = c("tbl_df", 
"tbl", "data.frame"))

내가하고 싶은 것은 플롯을 부드럽게하는 것입니다. 다음은 내가 사용하는 코드입니다.

lp <-   ggplot(lp_dat, aes(x = tc, y = n, group = 1)) +
  geom_point(color = "blue") +
  geom_line(linetype = "solid", size = 0.5, color = "blue") +
  ggalt::geom_xspline( size = 0.5, linetype = 'dashed') +
  facet_wrap(~kmeans_cluster, scales = "free_y") +
  theme_bw() +
  xlab("") +
  ylab("Count")

lp

다음 플롯을 생성합니다.

점선은 ggalt :: geom_xspline ()을 사용하여 의도 한 평활화 선입니다 .

저는 x 축의 순서를 다음과 같이 의도했습니다. c("NT", "IBD+PBS", "IBD+Serpin")따라서 그것들은 인자로 인코딩됩니다.

이렇게 매끄럽게 만들려면 어떻게해야하나요? 하지만 의도 한 x 축 순서는 다음과 같습니다.