R ggplot geom_raster увеличивает высоту строки, чтобы избежать наложения точек - PullRequest
Новая
       27

R ggplot geom_raster увеличивает высоту строки, чтобы избежать наложения точек

0 голосов
/ 23 марта 2019

Привет эксперты ggplot и R,

Новичок здесь.У меня есть сценарий использования, где я использую geom_raster для лучшей оптимизации.

Вот воспроизводимый скрипт R : 

require(ggplot2)
library(ggrepel)
# Create the data frame.
sales_data <- data.frame(
  emp_name = rep(c("Sam", "Dave", "John", "Harry", "Clark", "Kent", "Kenneth", "Richard", "Clement", "Toby", "Jonathan"), times = 50), 
  month = as.factor(rep(c("Jan", "Feb", "Mar", "Jan", "Feb", "Mar", "Jan", "Feb", "Mar", "Jan", "Jan"), times = 50)),
  dept_name = as.factor(rep(c("Production", "Services", "Support", "Support", "Services", "Production", "Production", "Support", "Support", "Support", "Production"), times = 50)), 
  revenue = rep(c(100, 200, 300, 400, 500, 600, 500, 400, 300, 200, 500), times = 50),
  status = rep(c("Low", "Medium", "Medium", "High", "Very High", "Very High", "Very High", "High", "Medium", "Medium", "Low"), times = 50)
)

sales_data$month <- factor(sales_data$month, levels = c("Jan", "Feb", "Mar"))
month_vector <- levels(sales_data$month)
number_of_enteries <- nrow(sales_data)

sales_data$status <- factor(sales_data$status, levels = c("Low", "Medium", "High", "Very High"))
sales_data$month <- as.integer(sales_data$month)

ggplot(sales_data, aes(x = month, y = dept_name)) +
  geom_raster(data = expand.grid(sales_data$month, sales_data$dept_name),
              aes(x = Var1, y = Var2, width=1, height=1), fill = NA, col = 'gray50', lty = 1) + #default width and height is 1
  #SAFE: geom_point(aes(size = revenue, col = revenue), 
  #           shape = 16, position = position_jitter(seed = 0), show.legend = F) +
  geom_point(aes(size = status, colour = cut(revenue, c(-Inf, 199, 301, Inf)) ), 
             shape = 16, position = position_jitter(seed = 0), show.legend = F) +
  scale_color_manual(name = "revenue", 
                     values = c("(-Inf,199]" = "red",
                                "(199,301]" = "#ffbf00", #amber
                                "(301, Inf]" = "green") ) +
  geom_text(aes(label = revenue), size=4, vjust = 1.6, position = position_jitter(seed = 0)) + #try with geom_text

  theme_bw() +
  theme(
    axis.title = element_blank(),
    axis.ticks = element_blank(),
    plot.background = element_blank(), 
    axis.line = element_blank(), 
    panel.border = element_blank(), 
    panel.grid = element_blank(),

    axis.text = element_text(colour = "blue", face = "plain", size =11)
  ) +

  scale_x_continuous(limits=c(0.5,3.5), expand = c(0,0), breaks = 1:length(month_vector), labels = month_vector) +

  # Remove extra whitespace from y-axis so lines are against the axis
  scale_y_discrete(expand = c(0,0)) +
  # Add straight lines at each factor level, shifted left/down so they're between values
  geom_hline(yintercept = as.numeric(sales_data$dept_name) + 0.5) +
  geom_vline(xintercept = as.numeric(sales_data$month) - 0.5, color = "grey")

Выходной график : enter image description here Поскольку, как можно видеть, существует много совпадений.У меня есть 2 вопроса здесь:

  1. Как мы можем увеличить высоту строки, чтобы было больше места для geom_point.Можем ли мы использовать facet_grid в этом случае?Я не уверен здесь, как и следует ли использовать facet_grid

  2. Есть ли другой способ, кроме position_jitter, случайным образом наносить пузырьки, чтобы они не перекрывались?

Пожалуйста, помогите!Я уверен, что этот вопрос поможет многим новичкам в будущем, поскольку он нигде не рассматривается на SO или другой платформе.

...