{r} month=global3 %>% group_by(Month,movement_type) %>% summarise(count=n()) month$Month<-as.character(month$Month) ####创建净流入表并合并 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('月变动情况')%>% setSymbols('emptycircle')%>% setTheme("macarons")%>% setToolbox(show=FALSE) t4将这个表背后的格子去掉r语言，然后改变样式

这段代码中的表格是通过使用 `echartr` 函数创建的，它是 `rCharts` 包中的一个函数，用于创建交互式的 JavaScript 图表。如果您想要去掉表格背后的网格线，可以在 `echartr` 函数中添加 `grid` 参数，并将其设置为 `FALSE`，如下所示：

t4 <- echartr(month, Month, count, movement_type, type='line', grid=FALSE) %>% 
  setTitle('月变动情况') %>% 
  setSymbols('emptycircle') %>% 
  setTheme("macarons") %>% 
  setToolbox(show=FALSE)

这将创建一个没有网格线的折线图。如果您想要改变图表的样式，可以使用 `setTheme` 函数来选择不同的主题。您可以在 `rCharts` 包的文档中找到更多关于如何自定义图表样式的信息。