coord_cartesian无法与R中Shiny中的堆积条形图和日期对象配合使用

在R中，coord_cartesian是一种用于控制绘图区域的函数。但是在Shiny应用程序中，当使用堆积条形图和日期数据时，该函数似乎无法正常工作。为解决此问题，我们可以使用scale_x_date函数以及ggplot2软件包中的facet_wrap函数。

首先，确保您已经加载了ggplot2和scales软件包：

library(ggplot2) library(scales)

然后，我们需要创建一个数据集，该数据集包含要绘制的日期和条形图数据：

data <- data.frame(Date = as.Date(c("2018-01-01", "2018-01-02", "2018-01-03", "2018-01-04", "2018-01-05")), Value1 = c(10, 20, 30, 40, 50), Value2 = c(20, 30, 40, 50, 60))

接下来，我们可以使用ggplot函数来创建堆积条形图。但是，由于我们将使用scale_x_date函数，因此需要将x轴列设置为Date列：

ggplot(data, aes(x = Date, y = Value1)) + geom_bar(stat = "identity", fill = "blue") + geom_bar(aes(y = Value2), stat = "identity", fill = "red") + scale_x_date(date_breaks = "1 day", date_labels = "%Y-%m-%d") + facet_wrap(~ Date, ncol = 1)

在上面的代码中，我们使用了ggplot函数创建了一个堆积条形图。我们使用了scale_x_date函数来设置x轴上的日期格式，同时还使用了facet_wrap函数来将每个日期作为单独的图表进行绘制。由于我们使用stat = "identity"参数，因此geom_bar函数将显示原始值而不是计数。