PowerBI 中的 Rscript 用于组合箱线图和条形图（单独的 y 轴）

Question

对 Whosebug 和 R 都是菜鸟，所以请保持温柔！

我正在尝试使用 R 在 PowerBI 中创建一个图形，该图形结合了时间序列 x 轴上的箱形图和条形图。看起来像这样的东西： Boxplot w Barchart（也在下方）。

我想要实现的是 x 轴是周数 (Weeknum)，条形图的 y 轴是 'LDS' 的计数，辅助 y 轴是'CAD_CPM.'

的每英里成本范围

我可以使用以下代码创建箱线图，但似乎无法弄清楚如何添加条形图。

非常感谢任何帮助！谢谢！

boxplot (
CAD_CPM~Weeknum
,data=dataset
,main="Cost Per Mile (CAD)"
,outline = FALSE 
,ylab = "CPM (CAD)"
,xlab = ""
,col=(c("pink" , "light blue"))
    )

PowerBI boxplot（下同）

Answer 1

因为你没有提供 minimal reproducible example，我使用 R 中的 mtcars 数据集来说明我的观点。
在 PowerBI

的 R 脚本编辑器中尝试以下代码

library(ggplot2)
library(dplyr)

data = mtcars

temp <- data %>% 
  group_by(cyl = factor(cyl)) %>% 
  summarise(mpg = mean(mpg))
ggplot(data, aes(factor(cyl), mpg)) + 
  geom_bar(data = temp, aes(cyl, mpg), stat = "identity") + 
  geom_boxplot()+
  theme_light()

将生成箱线图和条形图，如下所示

现在，假设您想为这个情节添加一些趣味，即制作一个色彩缤纷的情节，然后尝试以下代码；

library(ggplot2)
library(dplyr)

data = mtcars

temp <- data %>% 
  group_by(cyl = factor(cyl)) %>% 
  summarise(mpg = mean(mpg))
str(temp)

ggplot(data, aes(factor(cyl), mpg)) + 
  geom_bar(data = temp, aes(cyl, mpg), stat = "identity",
           fill=temp$cyl) + 
  geom_boxplot(aes(fill=factor(gear)))+
  theme_light()

会出现以下剧情；

添加辅助y轴可以使用sec_axis()函数实现。有关详细信息，请参阅 official docs。

library(ggplot2)
library(dplyr)

data = mtcars

temp <- data %>% 
  group_by(cyl = factor(cyl)) %>% 
  summarise(mpg = mean(mpg))
str(temp)

ggplot(data, aes(factor(cyl), mpg)) + 
  geom_bar(data = temp, aes(cyl, mpg), stat = "identity",
           fill=temp$cyl) + 
  geom_boxplot(aes(fill=factor(gear)))+
  scale_y_continuous("mpg (US)",
                     sec.axis = sec_axis(~ . * 1.20, name = "mpg (UK)"))+
  theme_light()

PowerBI 中的 Rscript 用于组合箱线图和条形图（单独的 y 轴）

Rscript in PowerBI for combined boxplot with bar chart (separate y-axis)

r

boxplot

powerbi

powerbi-desktop