笨办法学R编程(三)_光环大数据培训

笨办法学R编程（三）_光环大数据培训
看到各位对“笨办法系列”的东西还比较感兴趣，我也很乐意继续写下去。

今天的示例将会用到数据框（data.frame）这种数据类型，并学习如何组合计算两个向量，以及如何排序。

我们将用所学的东西来解决Project Euler的第四个问题，就是找出一个集合中最大的回文数。

回文数是指一个像1534351这样“对称”的数，如果将这个数的数字按相反的顺序重新排列后，所得到的数和原来的数一样。

开始啦！
# 预备练习
x <- y <- 1:9
data <- expand.grid(x=x,y=y)
print(data)
z <- data$x * data$y
# 一个九九乘法表
z <- matrix(z,ncol=9)
set.seed(1)
x <- round(runif(10),2)
print(x)
order(x)
x[order(x)[1]]
which.min(x)
x[which.min(x)]
x[order(x)]
y <- 1:10
data <- data.frame(x,y)
class(data)
head(data)
data[1,]
data[,1]
data$x
data[order(data$x),]
# Project Euler 4
# 在两个三位数字的乘积中，找出最大的回文数
# 先建立一个将数字顺序进行反转的函数
reverse <- function(n) {
reversed <- 0
while (n > 0) {
reversed <- 10 * reversed + n %% 10
n <- n%/%10
}
return(reversed)
}
# 从大到小搜索回文数
x <- y <- 999:100
data <- expand.grid(x=x,y=y)
data$prod <- data$x * data$y
data <- data[order(data$prod,decreasing=T),] head(data)
value <- data$prod for (i in 1:length(value)) { isequal <-
(value[i] == reverse(value[i])) if (isequal) { print(data[i,]) break }}
得到的结果是906609，本例是先将乘积排序后再判断是否回文数，找到的
第一个就是答案，所以速度会快一点。

如果不用expand.grid函数的话，可以利
用嵌套for来组合计算。

另外还有一种作法是利用R本身的rev函数，先将数字
转为字符，再切开成一串向量，用rev反转后判断。

为什么大家选择光环大数据！
大数据培训、人工智能培训、Python培训、大数据培训机构、大数据培训班、
数据分析培训、大数据可视化培训，就选光环大数据！光环大数据，聘请大数据
领域具有多年经验的讲师，提高教学的整体质量与教学水准。

讲师团及时掌握时
代的技术，将时新的技能融入教学中，让学生所学知识顺应时代所需。

通过深入
浅出、通俗易懂的教学方式，指导学生较快的掌握技能知识，帮助莘莘学子实现
就业梦想。

光环大数据启动了推进人工智能人才发展的“AI智客计划”。

光环大数据专注国内
大数据和人工智能培训，将在人工智能和大数据领域深度合作。

未来三年，光环大数据
将联合国内百所大学，通过“AI智客计划”，共同推动人工智能产业人才生态建设，培
养和认证5-10万名AI大数据领域的人才。

参加“AI智客计划”，享2000元助学金！
【报名方式、详情咨询】
光环大数据网站报名：
手机报名链接：http:// /mobile/。