不要用ggplot,只在原来的包的基础上改一改
时间: 2024-03-17 21:47:26 浏览: 113
好的,那么可以尝试以下修改:
```{r}
library(echarts4r)
library(dplyr)
month <- global3 %>%
group_by(Month, movement_type) %>%
summarise(count = n()) %>%
ungroup() %>%
mutate(Month = format(as.Date(Month), "%Y-%m"))
month1 <- data.frame(Month = c("2019-01-01", "2019-02-01", "2019-03-01", "2019-04-01", "2019-05-01", "2019-06-01", "2019-07-01", "2019-08-01", "2019-09-01"),
movement_type = c("净流入"),
count = c(1, -4, 5, 2, 4, 11, 5, 14, 8))
month1$count <- as.integer(month1$count)
month <- rbind(month, month1)
t4 <- echartr(month, Month, count, movement_type, type = 'line') %>%
setTitle('月变动情况') %>%
setColors(c("#0072B2")) %>%
setSymbol("emptyCircle") %>%
setSymbolSize(8) %>%
setAreaOpacity(0.3) %>%
setGrid(top = 60, bottom = 80) %>%
setTooltip(trigger = "axis") %>%
setXAxis(type = "category", boundaryGap = FALSE) %>%
setYAxis(type = "value", axisLabel = list(formatter = "{value}")) %>%
setLegend(bottom = 20) %>%
setTheme("macarons")
t4
```
这里仍然使用 `echarts4r` 包,对数据进行了类似的预处理,然后使用 `echartr` 函数绘制折线图,并对图形的颜色、符号、透明度、坐标轴等进行了一些调整,使其更加美观和易读。