How to only show x axis labels that HAVE values, and remove ones that have nothing using facet_wrap ggplot?

huangapple
go评论84阅读模式
英文:

How to only show x axis labels that HAVE values, and remove ones that have nothing using facet_wrap ggplot?

问题

我正在使用facet_wrap绘制一些数据，并且我的x轴标签非常多。我希望删除那些没有数据的标签，以尽量减少混乱。但是，我的facet_wrap图表的x轴标签都有不同的值。所以，是否有一种函数可以只在存在值时显示刻度标签，而不是手动定义要包含的x轴刻度标签？

这是我的数据框：

  1. df = structure(list(Method_Used = c("Animal_Borne_Acoustic", "Animal_Borne_Acoustic_Archival", 
  2. "Animal_Borne_Archical", "Animal_Borne_Archical", "Animal_Borne_Archical", 
  3. "Animal_Borne_Archical", "Animal_Borne_Archical", "Animal_Borne_Archical", 
  4. "Animal_Borne_Archical", "Animal_Borne_Archival_PIT", "Animal_Borne_Archival_Satellite", 
  5. "Animal_Borne_Satellite", "Animal_Borne_Satellite_Archival", 
  6. "Animal_Borne_Satellite_Archival", "BRUV_Acoustic", "BRUV_Acoustic", 
  7. "BRUV_Acoustic_Satellite", "Controlled_Acoustic", "Controlled_Acoustic", 
  8. "Controlled_Archical", "Controlled_Satellite", "Drone_Acoustic", 
  9. "Stationary_Acousitc_PIT", "Stationary_Acoustic", "Stationary_Acoustic", 
  10. "Stationary_Acoustic", "Stationary_Acoustic", "Stationary_Acoustic", 
  11. "Stationary_Acoustic_Archival", "Stationary_Acoustic_Archival", 
  12. "Stationary_Acoustic_Archival", "Stationary_Acoustic_Archival", 
  13. "Stationary_Acoustic_PIT", "Stationary_Acoustic_Radio", "Stationary_Acoustic_Radio_PIT", 
  14. "Stationary_Archical", "Stationary_Archical", "Stationary_Archical", 
  15. "Stationary_PIT", "Stationary_Radio", "Stationary_Radio_PIT", 
  16. "Stationary_Satellite", "Stationary_Satellite"), Water_Type = c("Saltwater", 
  17. "Saltwater", "Freshwater", "Saltwater", "Saltwater", "Saltwater", 
  18. "Saltwater", "Saltwater", "Saltwater", "Saltwater", "Saltwater", 
  19. "Saltwater", "Saltwater", "Saltwater", "Saltwater", "Saltwater", 
  20. "Saltwater", "Freshwater", "Saltwater", "Saltwater", "Saltwater", 
  21. "Saltwater", "Freshwater", "Brackish", "Freshwater", "Saltwater", 
  22. "Saltwater", "Saltwater", "Saltwater", "Saltwater", "Saltwater", 
  23. "Saltwater", "Freshwater", "Freshwater", "Freshwater", "Saltwater", 
  24. "Saltwater", "Saltwater", "Freshwater", "Freshwater", "Freshwater", 
  25. "Saltwater", "Saltwater"), Taxa = c("Reptilia", "Chondrichthyes", 
  26. "Phocidae", "Cetacea", "Chondrichthyes", "Mollusca", "Phocidae", 
  27. "Reptilia", "Teleostei", "Reptilia", "Reptilia", "Chondrichthyes", 
  28. "Chondrichthyes", "Phocidae", "Chondrichthyes", "Teleostei", 
  29. "Chondrichthyes", "Chondrostei", "Teleostei", "Cetacea", "Phocidae", 
  30. "Chondrichthyes", "Teleostei", "Teleostei", "Teleostei", "Chondrichthyes", 
  31. "Decapoda", "Teleostei", "Chondrichthyes", "Decapoda", "Gastropoda", 
  32. "Teleostei", "Teleostei", "Teleostei", "Teleostei", "Gastropoda", 
  33. "Reptilia", "Teleostei", "Teleostei", "Teleostei", "Teleostei", 
  34. "Cetacea", "Phocidae"), total_count = c(1L, 1L, 1L, 7L, 6L, 1L, 
  35. 2L, 5L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 1L, 5L, 1L, 1L, 1L, 
  36. 1L, 2L, 4L, 1L, 1L, 12L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 
  37. 1L, 1L, 2L, 1L, 1L, 1L)), class = c("tbl_df", "tbl", "data.frame"
  38. ), row names = c(NA, -43L))

这是我的图表代码：

  1. Taxa_Plot = ggplot(
  2.   data = df,
  3.   aes(x = Method_Used, y = total_count)) +
  4.   geom_col() +
  5.   theme_classic() +
  6.   facet_wrap(~Water_Type) +
  7.   # 增加x和y轴上的文本大小
  8.   theme(axis.text.x = element_text(size = 15, angle = 45, hjust = 1),
  9.         axis.text.y = element_text(size = 15))
  11. Taxa_Plot

有什么建议吗？

英文:

I am graphing some data using facet_wrap and my x axis labels are ALOT. I wanted to remove the labels where no data exists to try and get rid of all the mess. But my facet_wrap graphs all have different x axis labels with values. So is there a function that only shows tick labels when a value exists, instead of manually defining what x-axis tick labels to include

Here is my dataframe:

  1. df = structure(list(Method_Used = c("Animal_Borne_Acoustic", "Animal_Borne_Acoustic_Archival", 
  2. "Animal_Borne_Archical", "Animal_Borne_Archical", "Animal_Borne_Archical", 
  3. "Animal_Borne_Archical", "Animal_Borne_Archical", "Animal_Borne_Archical", 
  4. "Animal_Borne_Archical", "Animal_Borne_Archival_PIT", "Animal_Borne_Archival_Satellite", 
  5. "Animal_Borne_Satellite", "Animal_Borne_Satellite_Archival", 
  6. "Animal_Borne_Satellite_Archival", "BRUV_Acoustic", "BRUV_Acoustic", 
  7. "BRUV_Acoustic_Satellite", "Controlled_Acoustic", "Controlled_Acoustic", 
  8. "Controlled_Archical", "Controlled_Satellite", "Drone_Acoustic", 
  9. "Stationary_Acousitc_PIT", "Stationary_Acoustic", "Stationary_Acoustic", 
  10. "Stationary_Acoustic", "Stationary_Acoustic", "Stationary_Acoustic", 
  11. "Stationary_Acoustic_Archival", "Stationary_Acoustic_Archival", 
  12. "Stationary_Acoustic_Archival", "Stationary_Acoustic_Archival", 
  13. "Stationary_Acoustic_PIT", "Stationary_Acoustic_Radio", "Stationary_Acoustic_Radio_PIT", 
  14. "Stationary_Archical", "Stationary_Archical", "Stationary_Archical", 
  15. "Stationary_PIT", "Stationary_Radio", "Stationary_Radio_PIT", 
  16. "Stationary_Satellite", "Stationary_Satellite"), Water_Type = c("Saltwater", 
  17. "Saltwater", "Freshwater", "Saltwater", "Saltwater", "Saltwater", 
  18. "Saltwater", "Saltwater", "Saltwater", "Saltwater", "Saltwater", 
  19. "Saltwater", "Saltwater", "Saltwater", "Saltwater", "Saltwater", 
  20. "Saltwater", "Freshwater", "Saltwater", "Saltwater", "Saltwater", 
  21. "Saltwater", "Freshwater", "Brackish", "Freshwater", "Saltwater", 
  22. "Saltwater", "Saltwater", "Saltwater", "Saltwater", "Saltwater", 
  23. "Saltwater", "Freshwater", "Freshwater", "Freshwater", "Saltwater", 
  24. "Saltwater", "Saltwater", "Freshwater", "Freshwater", "Freshwater", 
  25. "Saltwater", "Saltwater"), Taxa = c("Reptilia", "Chondrichthyes", 
  26. "Phocidae", "Cetacea", "Chondrichthyes", "Mollusca", "Phocidae", 
  27. "Reptilia", "Teleostei", "Reptilia", "Reptilia", "Chondrichthyes", 
  28. "Chondrichthyes", "Phocidae", "Chondrichthyes", "Teleostei", 
  29. "Chondrichthyes", "Chondrostei", "Teleostei", "Cetacea", "Phocidae", 
  30. "Chondrichthyes", "Teleostei", "Teleostei", "Teleostei", "Chondrichthyes", 
  31. "Decapoda", "Teleostei", "Chondrichthyes", "Decapoda", "Gastropoda", 
  32. "Teleostei", "Teleostei", "Teleostei", "Teleostei", "Gastropoda", 
  33. "Reptilia", "Teleostei", "Teleostei", "Teleostei", "Teleostei", 
  34. "Cetacea", "Phocidae"), total_count = c(1L, 1L, 1L, 7L, 6L, 1L, 
  35. 2L, 5L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 1L, 5L, 1L, 1L, 1L, 
  36. 1L, 2L, 4L, 1L, 1L, 12L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 
  37. 1L, 1L, 2L, 1L, 1L, 1L)), class = c("tbl_df", "tbl", "data.frame"
  38. ), row.names = c(NA, -43L))

This is the code for my graph:

  1. Taxa_Plot = ggplot(
  2. data = df,
  3. aes(x = Method_Used, y = total_count)) +
  4. geom_col() +
  5. theme_classic() +
  6. facet_wrap(~Water_Type) +
  7. # increase the text size on x and y axis
  8. theme( axis.text.x = element_text(size = 15, angle = 45, hjust = 1),
  9. axis.text.y = element_text(size = 15))
  10. Taxa_Plot

Any ideas?

答案1

得分: 2

你可以在facet_wrap()内使用scales = "free_x"。

  1. library(tidyverse)
  3. ggplot(
  4.   data = df,
  5.   aes(x = Method_Used, y = total_count)) +
  6.   geom_col() +
  7.   theme_classic() +
  8.   facet_wrap(~Water_Type, scales = "free_x") +
  9.   theme( axis.text.x = element_text(size = 15, angle = 45, hjust = 1),
  10.          axis.text.y = element_text(size = 15))

How to only show x axis labels that HAVE values, and remove ones that have nothing using facet_wrap ggplot?

你可以使用facet_grid和space = "free_x"来使条形图的大小相等。

  1. ggplot(
  2.   data = df,
  3.   aes(x = Method_Used, y = total_count)) +
  4.   geom_col() +
  5.   theme_classic() +
  6.   facet_grid(~Water_Type, scales = "free_x", space = "free_x") +
  7.   theme( axis.text.x = element_text(size = 15, angle = 45, hjust = 1),
  8.          axis.text.y = element_text(size = 15))

How to only show x axis labels that HAVE values, and remove ones that have nothing using facet_wrap ggplot?

英文:

You can use scales = "free_x" within facet_wrap().

  1. library(tidyverse)
  3. ggplot(
  4.   data = df,
  5.   aes(x = Method_Used, y = total_count)) +
  6.   geom_col() +
  7.   theme_classic() +
  8.   facet_wrap(~Water_Type, scales = "free_x") +
  9.   theme( axis.text.x = element_text(size = 15, angle = 45, hjust = 1),
  10.          axis.text.y = element_text(size = 15))

How to only show x axis labels that HAVE values, and remove ones that have nothing using facet_wrap ggplot?

<hr>

You can use facet_grid with space = &quot;free_x&quot; to make the bars equal in size.

  1. ggplot(
  2.   data = df,
  3.   aes(x = Method_Used, y = total_count)) +
  4.   geom_col() +
  5.   theme_classic() +
  6.   facet_grid(~Water_Type, scales = &quot;free_x&quot;, space = &quot;free_x&quot;) +
  7.   theme( axis.text.x = element_text(size = 15, angle = 45, hjust = 1),
  8.          axis.text.y = element_text(size = 15))

How to only show x axis labels that HAVE values, and remove ones that have nothing using facet_wrap ggplot?

huangapple
  • 本文由 发表于 2023年2月23日 22:29:29
  • 转载请务必保留本文链接：https://go.coder-hub.com/75546194.html
  • ggplot2
  • r
匿名

发表评论

匿名网友

:?: :razz: :sad: :evil: :!: :smile: :oops: :grin: :eek: :shock: :???: :cool: :lol: :mad: :twisted: :roll: :wink: :idea: :arrow: :neutral: :cry: :mrgreen:

确定