-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy path.Rhistory
119 lines (119 loc) · 3.3 KB
/
.Rhistory
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
library(ggplot2)
D<-read.csv("version_star_record.csv",header=TRUE)
D
names(D)
ggplot(data=D,aes(x=结婚次数,y=星级,group=1))+geom_line(color="red",size=1.5)
geom_point(color="blue")
p<-ggplot(data=D,aes(x=结婚次数,y=星级,group=1))+geom_line(color="red",size=1.5)
p+geom_point(color="red",size=4,shape=21,fill="white")
q()
ls()
library(ggplot2)
D1<-read.csv("version_star_record.csv",header=TRUE)
D2<-read.csv("张飞604代_version_star_record.csv",header=TRUE)
str(D1)
D1$张飞星级<-D2$星级
str(D1)
movies
names(movies)
movies[1:5,]
mry <- do.call(rbind, by(movies, round(movies$rating), function(df) {
nums <- tapply(df$length, df$year, length)
data.frame(rating=round(df$rating[1]), year = as.numeric(names(nums)),
number=as.vector(nums))
}))
ls()
mry[1:5,]
mry[1:50,]
mry[1:50,]
mry[1:500,]
p <- ggplot(mry, aes(x=year, y=number, group=rating))
p + geom_line()
ls()
rm(D1)
ls()
D1<-read.csv("version_star_record.csv",header=TRUE)
D1$huoban=1
str(D2)
str(D1)
D2$huoban=2
D3<-rbind(D1,D2)
D3
str(D3)
p <- ggplot(D3, aes(x=结婚次数, y=星级, group=huoban))
p + geom_line()
p+ geom_line(aes(color=huoban))+scale_colour_gradient(low="red")
ls()
names(D1)
D1$huoban<-"皇后祝福的老王"
D2$huoban<-"没有皇后祝福的张飞"
D1
rm(D3)
D3<-rbind(D1,D2)
D3
write.csv(D3,"结婚模拟数据.csv",header=TRUE,quote=FALSE)
write.csv(D3,"结婚模拟数据.csv",quote=FALSE)
D3
rm(p)
names(D3)
p<-ggplot(D3,aes(x=结婚次数,y=星级,group=huoban))
p+geom_line()
p+geom_line(aes(color=huoban))
?jpeg
jpeg(filename="伙伴结婚皇后祝福效果图.jpeg",width=800,height=800, quality=100)
Q<-ggplot(D3,aes(x=结婚次数,y=星级,group=huoban))
Q+geom_line()
Q+geom_line(aes(color=huoban))
dev.off()
q()
ls()
D3[1:20,]
D4<-read.csv("关羽604代_version_star_record.csv",header=TRUE)
D4[1:30,]
str(D3)
D4$huoban="悲催的关羽"
D4[1:30,]
D3[1:2,]
D5<-rbind(D3,D4)
D5
library(ggplot2)
Q<-ggplot(D5,aes(x=结婚次数,y=星级,group=huoban))
Q+geom_line()
Q+geom_line(aes(color=huoban))
P<-ggplot(D5,aes(x=结婚次数,y=星级,group=huoban))
P+geom_bar()
P+geom_bar(binwidth=x)
jpeg(filename="伙伴结婚皇后祝福效果图.jpeg",quality=100)
Q<-ggplot(D5,aes(x=结婚次数,y=星级,group=huoban))
Q+geom_line()
Q+geom_line(aes(color=huoban))
dev.off()
?jpeg
jpeg(filename="伙伴结婚皇后祝福效果图.jpeg",width=1000,height=1000,quality=100)
Q<-ggplot(D5,aes(x=结婚次数,y=星级,group=huoban))
Q+geom_line()
Q+geom_line(aes(color=huoban))
Q+opts(title="伙伴结婚系统成长高低极限与均值曲线")
dev.off()
jpeg(filename="伙伴结婚皇后祝福效果图.jpeg",width=1000,height=1000,quality=100)
ggplot(D5,aes(x=结婚次数,y=星级,group=huoban))+gemo_line()+geom_line(aes(color=huoban))+opts(title="伙伴结婚系统成长高低极限与均值曲线")
ggplot(D5,aes(x=结婚次数,y=星级,group=huoban))+geom_line()+geom_line(aes(color=huoban))+opts(title="伙伴结婚系统成长高低极限与均值曲线")
dev.off()
write.csv(D5,"结婚模拟数据.csv")
q()
ls()
daming_exp<-read.csv("da_ming_level_exp.csv",header=TRUE)
daming_exp
daming_exp[1:20,]
sum(daming_exp[1:50]$need2next)
sum(daming_exp[1:50,]$need2next)
sum(daming_exp[1:40,]$need2next)
a<-sum(daming_exp[1:50,]$need2next)
b<-sum(daming_exp[1:40,]$need2next)
c<-a+b
c
ls()
c<-cumsum(daming_exp$need2next)
c<-cumsum(as.numeric(daming_exp$need2next))
c
q()