环境：

• 一台旧安卓机
• cpu 4核 armhf
• 内存2G
• 互联网

---

安装流程

1. 将安卓手机root （必须）

2. 去应用商店下载app linux deploy 应用，安装

• 打开后，在右下角点击下载应用配置：

• 发行版 ： ubuntu

• 架构： armhf

• 源地址： 如果网速好可以选择默认源，如果网速差建议去百度清华源或者网易源

• 安装路径要选好；

• 镜像大小： 选择2048M

• 用户名自定义

• 密码自定义

• 勾选允许启动SSH服务 （默认端口22）

• 不勾选允许图形界面启动

3. 在depoly界面右上角选择安装，然后等待下载成功；

4. 成功后选择启动系统，此时界面上有系统的局域网ip地址；

• 比如 192.168.1.10

5. 在PC端使用ssh工具，比如xshell远程连接设备（需要在同一个局域网下面）

• 登录
• ssh 192.168.1.10

6. 登录后先安装aptitude，然后安装vim编辑器

sudo apt-get install aptitude 
sudo aptitude install vim

7. 备份源文件并修改源列表，注意，该系统的源文件应该是基于armhf架构的

cp /etc/apt/sources.list source.list.bak

• 然后修改源列表，此处我们选择清华的源：

vim /etc/apt/soures.list

#填入以下内容：



deb http://mirrors.ustc.edu.cn/ubuntu-ports/ xenial main multiverse restricted universe
deb http://mirrors.ustc.edu.cn/ubuntu-ports/ xenial-backports main multiverse restricted universe
deb http://mirrors.ustc.edu.cn/ubuntu-ports/ xenial-proposed main multiverse restricted universe
deb http://mirrors.ustc.edu.cn/ubuntu-ports/ xenial-security main multiverse restricted universe
deb http://mirrors.ustc.edu.cn/ubuntu-ports/ xenial-updates main multiverse restricted universe
deb-src http://mirrors.ustc.edu.cn/ubuntu-ports/ xenial main multiverse restricted universe
deb-src http://mirrors.ustc.edu.cn/ubuntu-ports/ xenial-backports main multiverse restricted universe
deb-src http://mirrors.ustc.edu.cn/ubuntu-ports/ xenial-proposed main multiverse restricted universe
deb-src http://mirrors.ustc.edu.cn/ubuntu-ports/ xenial-security main multiverse restricted universe
deb-src http://mirrors.ustc.edu.cn/ubuntu-ports/ xenial-updates main multiverse restricted universe

• 完成后更新源列表：

sudo apt-get update

8. vim 中文输入乱码解决：

#安装locales
aptitude install locales
#配置locales
dpkg-reconfigure locales
#选择以下几种编码

en_US.UTF8
zh_CN GB2312
zh_CN GBK GBK
zh_CN UTF-8 UTF-8

默认编码选择

zh_CN UTF-8 UTF-8

Generating locales (this might take a while)...
en_US.UTF-8... done
zh_CN.GB2312... done
zh_CN.GBK... done
zh_CN.UTF-8... done
Generation complete.

9. 直接在线安装R语言

sudo aptitude install r-base

10. 安装一些数据ETL的R包

install.packages(c("dplyr","stringr","data.table"),repos = "https://mirrors.eliteu.cn/CRAN/")



#install.packages("dplyr",repos = "https://mirrors.eliteu.cn/CRAN/")

11. 安装jdk8

sudo aptitude install   openjdk-8-jdk
sudo aptitude install  default-jre
#重新配置R语言java环境变量
sudo R CMD javareconf

12. 安装curl linux包

sudo apt-get install libcurl4-openssl-dev
sudo apt-get install libxml2-dev

13. 安装R爬虫包

install.packages(c("RCurl","XML"),repos = "https://mirrors.eliteu.cn/CRAN/")

14. R爬虫包测试代码：

library(stringr)
library(RCurl)
library(XML)
url <- paste("https://movie.douban.com/top250?start=",seq(0,225,by=25),"&filter=",sep = "")
y <- NULL;
country <- NULL
for (i in 1:length(url)){
  wp<-getURL(url[i],.encoding="gb2312",followlocation=T) 
  doc <- htmlParse(wp,asText=T,encoding="UTF-8")#解析
  #电影名字
  name <- xpathSApply(doc,path="//span[@class='title'][1]",xmlValue)
  #评分
  score <- xpathSApply(doc,path="//span[@class='rating_num' and @property='v:average']",xmlValue)
  #上映时间
  time <- str_extract(xpathSApply(doc,path="//div[@class='bd']/p[@class='']",xmlValue),pattern = '[1-2][0-9]{3}')
  #生产地区
  for(j in 1:25){
    country[j] <- str_split(str_extract(xpathSApply(doc,path="//div[@class='bd']/p[@class='']",xmlValue),pattern = '[1-2][0-9].*/.*/'),pattern = "/")[[j]][2]
  }
  country <- str_trim(country)
  x <- cbind(name,score,time,country)
  y <- rbind(y,x)
}
y <- as.data.frame(y)#存入数据框y