仅绘制与 R 中的条件匹配的特定数据帧行

Question

我有一个这样构建的数据框：

       Id        Client           data     
        1           5             25     
        2           8             63       
        3          13             42
        4           5             87
        5           8             35

还有一个数组：clients <- c(5,8)

我需要为“clients”数组中的每个客户端绘制不同的直方图（数据列）。在此示例中，我将为客户端 5 绘制直方图，其中包含两个条 (25,87)，而客户端 8 的一个直方图也包含两个条 (63,35)。我认为我需要使用 facet_wrap 函数为每个客户端绘制直方图，我还尝试为每个客户端做类似的绘图，但没有奏效。我不确定我该怎么做，所以任何帮助都会很棒！

Answer 1

看来您只是没有进行足够的数据整理。此外，根据您的描述，您需要 barplot，而不是直方图（它会报告数据中特定值的计数，而不是它们的值）。

这是base中的解决方案。

dt = data.frame("id" = 1:5, "client" = c(5,8,13,5,8), "data"=c(25,63,42,87,35))
clients = c(5,8,13) # for particular clients, or unique(dt$client) for all clients

# get data for every client
lst = lapply(clients, function(x){dt[dt$client == x, "data"]})

# unify length and transform into a matrix
len = max(sapply(lst, length))
mat = do.call(cbind, lapply(lst, "[", seq_len(len)))

# Put some nice legend
colnames(mat) = paste("Client", clients)

# plot this matrix with barplot
barplot(mat, beside=TRUE, las=1)

Answer 2

如果clients 的数量有限，您可以在同一图表上绘制。

library(dplyr)
library(ggplot2)

df %>%
  filter(Client %in% clients) %>%
  group_by(Client) %>%
  mutate(Id = factor(row_number())) %>%
  ggplot() + aes(Client, data, fill = Id) + 
  geom_bar(stat = 'identity', position = 'dodge')

带有刻面：

df %>%
  filter(Client %in% clients) %>%
  group_by(Client) %>%
  mutate(Id = factor(row_number())) %>%
  ggplot() + aes(Client, data, fill = Id) + 
  geom_bar(stat = 'identity', position = 'dodge') + 
  facet_wrap(~Client, scales = 'free_x')

数据

df <- structure(list(Id = 1:5, Client = c(5L, 8L, 13L, 5L, 8L), data = c(25L, 
63L, 42L, 87L, 35L)), class = "data.frame", row.names = c(NA, -5L))

clients <- c(5,8)