var.sales <- read.csv('https://www.dropbox.com/s/s35mb1tz1w61dmk/example_ts.csv?dl=1')
var.sales
library(ggplot2)
挼㸶搼㸰Ű挼㸱昼㸶 愼㸱愼㹥ggplot2愼㸱愼㹦戼㸴挼㸲 R 戼㸹昼㸶挼㸰昼㹣 3.5.1戼㹦愼㸱戼㹣愼㹤 挼㸰ۼ戼㹡戼㸵Ǿ昼㹡戼㹤挼㸰戼㸴ϴ搼㸹Need help? Try Stackoverflow: https://stackoverflow.com/tags/ggplot2.


ggplot(var.sales,
aes(x=factor(Date),y=Sales,group=1))+
geom_line(color = 'red',size = 1)+
geom_point(color = 'orange',size = 4)+
xlab('년도')+ylab('매출')+ggtitle('기업월별매출')+
theme_light()
Warning message:
In strsplit(code, "\n", fixed = TRUE) :
input string 1 is invalid in this locale

LS0tDQp0aXRsZTogIlIgTm90ZWJvb2siDQpvdXRwdXQ6IGh0bWxfbm90ZWJvb2sNCi0tLQ0KDQoNCg0KYGBge3J9DQp2YXIuc2FsZXMgPC0gcmVhZC5jc3YoJ2h0dHBzOi8vd3d3LmRyb3Bib3guY29tL3MvczM1bWIxdHoxdzYxZG1rL2V4YW1wbGVfdHMuY3N2P2RsPTEnKQ0KdmFyLnNhbGVzDQoNCmBgYA0KDQpgYGB7cn0NCmxpYnJhcnkoZ2dwbG90MikNCmxpYnJhcnkoZ2d0aGVtZXMpDQpgYGANCg0KYGBge3J9DQpnZ3Bsb3QodmFyLnNhbGVzLCBhZXMoeD1EYXRlLCB5PVNhbGVzKSkrDQogICAgICAgICBnZW9tX2xpbmUoKQ0KYGBgDQpgYGB7cn0NCg0KZ2dwbG90KHZhci5zYWxlcywNCiAgICAgICBhZXMoeD1mYWN0b3IoRGF0ZSkseT1TYWxlcyxncm91cD0xKSkrDQogIGdlb21fbGluZSgpK2dlb21fcG9pbnQoKSt0aGVtZV9saWdodCgpDQpgYGANCg0KYGBge3J9DQoNCmdncGxvdCh2YXIuc2FsZXMsDQogICAgICAgYWVzKHg9ZmFjdG9yKERhdGUpLHk9U2FsZXMsZ3JvdXA9MSkpKw0KICBnZW9tX2xpbmUoY29sb3IgPSAncmVkJyxzaXplID0gMSkrDQogIGdlb21fcG9pbnQoY29sb3IgPSAnb3JhbmdlJyxzaXplID0gNCkrDQogIHhsYWIoJ+uFhOuPhCcpK3lsYWIoJ+unpOy2nCcpK2dndGl0bGUoJ+q4sOyXheyblOuzhOunpOy2nCcpKw0KICB0aGVtZV9saWdodCgpDQoNCmBgYA0KDQo=