R语言
shushujiuhui123
这个作者很懒,什么都没留下…
展开
-
获取沪深300成分股单日收盘价
使用pedquant包获得沪深300成分股单日收盘价数据原创 2022-11-27 17:06:17 · 833 阅读 · 1 评论 -
R语言tidyverse数据处理建模案例
管道%>%左连接left_join()筛选行 filter(条件)行排序arrange()选择列select()修改(计算)列mutate()分组汇总group_by()、%>%、summarise() 计数:count()数据处理案例:企业上游业务量:企业上游年均业务量:X1=12×企业上游交易总次数企业数据的月份数X_1 = 12 \times \frac{企业上游交易总次数}{企业数据的月份数}X1=12×企业数据的月份数企业上游交易总次数企业上游业务量年原创 2021-12-01 20:26:18 · 1330 阅读 · 0 评论 -
ggplot2双纵坐标轴
library("scales")library(tidyverse)df4 <- tibble( year = c("2013", "2014", "2015", "2016", "2017", "2018", "2019", "2020"), ResearchInput = c(1.56, 2.54, 2.99, 5.63, 11.08, 12.31, 16.77, 25.92), ProportioninOperatingIncome = c(6.8, 6.9, 5, 4.9,原创 2021-11-28 20:46:35 · 777 阅读 · 0 评论 -
ggplot2横坐标标签旋转
横坐标标签旋转df2 <- tibble( name = c('LONGGi', 'ZHONGHUAN', 'JINKO', 'JASO', 'SHANGJI AUTOMATION', 'GCL', 'JYT'), val = c(85, 55, 22, 18, 10, 7, 7), obj = factor(name, levels= c('LONGGi', 'ZHONGHUAN', 'JINKO', 'JASO', 'SHANGJI AUTOMATION', 'GCL', 'JYT'原创 2021-11-27 20:26:30 · 10534 阅读 · 0 评论 -
ggplot2柱状图
柱状图library(tidyverse)df3 <- tibble( obj = c('LONGGi', 'JINKO', 'TRINA', 'JASO', 'Canadian Solar'), SiliconWafer = c(85, 22, 0, 18, 5), Battery = c(30, 11, 12, 18, 13), Module = c(50, 32, 22, 23, 14), name = factor(obj, levels = c('LONGGi', '原创 2021-11-26 08:36:37 · 574 阅读 · 0 评论 -
R画地图,并标注所需点
最近用R画了一张地图,在地图上用经纬度标出了想要的点,具体的数据参见文末library(pacman)p_exists('leaflet', local = T)p_exists('maptools', local = T)p_exists('maps', local = T)library(ggplot2)library(leaflet)library(ggmap)library(sp)library(maptools)library(maps)library(tidyverse)原创 2021-11-22 17:14:14 · 4948 阅读 · 0 评论 -
管理R包——Pacman包介绍
Pancman包首先下载pacman包,使用代码install.packages("pacman")下载,library(pacman)导入包后即可进行以下操作#输出ggplot2包作者的名称p_author(ggplot2)#输出ggplot2包的引用文献p_cite(ggplot2)#检查在CRAN上是否可以获取ggplot2包p_iscran(ggplot2)# [1] TRUE#输出CARN上可以获取的R包p_cran()#输出ggplot2包中的数据集p_data(原创 2021-11-20 20:57:39 · 1451 阅读 · 0 评论 -
等额本息和等额本金还款在R中的实现
等额本金还款library(tidyverse)Eqprincipal <- function(principal, r, Loanterm){ n <- Loanterm * 12 r <- r / 12 Prepay <- rep(principal / n, n) Pint <- rep(NA, n) Pint[1] <- principal * r RepayPrint <- rep(NA, n) RepayPrint[1]原创 2021-11-19 15:07:19 · 1057 阅读 · 0 评论 -
数据处理小示例
根据股票收益率分类将数据进行分类library(quantmod)library(readr)x1 <- read.csv("hsgp.csv",header = T)x2 <- x1[-nrow(x1),]a1 <- x2[sample(1:nrow(x2),1),1]stock <- getSymbols(paste(a1,".sz",sep=""),from="2019-01-01",to="2021-10-21",auto.assign = F)stock1 &原创 2021-11-04 21:14:10 · 362 阅读 · 0 评论 -
R爬虫小示例
爬取安居客首页楼盘信息,并将数据整合成数据框library(RCurl)ur1 <- "https://hz.fang.anjuke.com/?from=navigation/"web <- readLines(ur1,encoding ="UTF-8")#筛选出楼盘名称loupan <- web[grep("items-name",web)]loupan1 <- substr(loupan,regexpr("\">",loupan)+2,nchar(loupan原创 2021-11-04 21:07:15 · 310 阅读 · 0 评论 -
R基础绘图
1. 初建图形R中自带了一些演示图形,通过如下程序可以调用:demo("graphics")demo("image")1.1 图形的创建和保存1.1.1 图形文件的保存#图形保存#保存成 PDF 文件pdf("R语言在金融中的运用/sink.pdf") #开启语句plot(1:10,2:11,type="l") #画图dev.off() #关闭语句,必须有 #保存成 png 文件png("E:/R CLASS/第一章/code/figure1.png")plot(1:10,原创 2021-11-03 14:18:12 · 2755 阅读 · 0 评论 -
统计学三大分布(卡方、t、F)即相应概率密度图的R语言实现
三大统计分布1. χ2\chi^2χ2分布 设随机变量X1,X2,⋯ ,XnX_1,X_2,\cdots,X_nX1,X2,⋯,Xn相互独立且均服从标准正态分布N(0,1)N(0,1)N(0,1),则称随机变量χ2=X12+X22+⋯+Xn2\chi^2=X_1^2+X_2^2+\cdots+X_n^2χ2=X12+X22+⋯+Xn2所服从的分布是自由度为nnn的χ2\chi^2χ2分布,记为χ2∼χ2(n)\chi^2\sim \chi^2(n)χ2∼χ2(n)χ2\chi^原创 2021-09-29 17:13:01 · 8808 阅读 · 0 评论 -
Tushare在R中的使用
Tushare在R中的使用Tushare ID:394467Tushare注册链接:https://tushare.pro/register?reg=394467官方介绍通过R SDK获取数据:https://waditu.com/document/1?doc_id=1331.在Rstudio编辑器或命令行中输入:install.packages('Tushare')[外链图片转存失败,源站可能有防盗链机制,建议将图片保存下来直接上传(img-X67rreUJ-1632303355325)(C原创 2021-09-22 17:38:00 · 1655 阅读 · 0 评论 -
R语言在金融中的应用二
3.文件输入输出以及常见错误3.1 R脚本文件输入(打开) .R利用Rstudio界面利用R界面命令打开file.edit("#dir",fileEncoding = "UTF-8") #导入.R文件,导入R的脚本文件3.2 R脚本文件储存(保存)利用Rstudio界面利用R界面3.3 其他文件输出(保存)将运行结果保存在文档里:运行结果保存成.R或者.txt文件 → sink()注意点: #R 脚本文件输出(保存) #保存运行结果,sink() sink(原创 2021-09-15 18:51:15 · 838 阅读 · 0 评论 -
R语言在金融中的运用一
R语言在金融中的运用财富管理风控数据采集新浪微博、新浪新闻、股吧、Google、Bloomberg、新浪博客、人民日报、雪球、twitter、Seeking Alpha继承S语言1.R包相关1.包的下载及调用install.packages("包名",lib="#dir")#下载包,必须有双引号,dir替换为所需安装路径,默认为R安装目录下的library文件夹library(packagename,lib.loc="#dir")#载入包,lib.lock可选,默认为R安装目录下的libr原创 2021-09-09 14:20:18 · 1263 阅读 · 0 评论 -
R语言画小提琴图
R语言画小提琴图library(foreign)mydataframe <- read.table("C:/Users/ASUS/Desktop/题目5数据处理/剔除异常值新2.csv", header=TRUE,sep=",")opar <- par(no.readonly=TRUE)par(mfrow=c(2,4))#a1x1 <- mydataframe$a1[mydataframe$brand==1]x2 <-原创 2021-09-06 23:49:51 · 1333 阅读 · 0 评论