Notes for R study

最新推荐文章于 2024-12-08 22:26:02 发布
最新推荐文章于 2024-12-08 22:26:02 发布
阅读量2.2k 收藏
点赞数
分类专栏： R 文章标签： 数据 R
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/shipengfei92/article/details/45129745
版权
本文介绍R语言中的数据操作技巧，包括数据框的合并、子集选取、样本抽取等实用方法，并展示如何通过SQL语法简化复杂的数据处理流程。
摘要由CSDN通过智能技术生成

Code

source code

#######4.9######
authors <- data.frame(
  surname = I(c("Tukey", "Venables", "Tierney", "Ripley", "McNeil")),
  nationality = c("US", "Australia", "US", "UK", "Australia"),
  deceased = c("yes", rep("no", 4)))

authors

books <- data.frame(
  name = I(c("Tukey", "Venables", "Tierney",
             "Ripley", "Ripley", "McNeil", "R Core")),
  title = c("Exploratory Data Analysis",
            "Modern Applied Statistics ...",
            "LISP-STAT",
            "Spatial Statistics", "Stochastic Simulation",
            "Interactive Data Analysis",
            "An Introduction to R"),
  other.author = c(NA, "Ripley", NA, NA, NA, NA,
                   "Venables & Smith"))

books
m1 <- merge(authors, books, by.x = "surname", by.y = "name")
m1
m2 <-merge(authors, books, by.x = "surname", by.y = "name", all = TRUE)
m2

#######4.10######
source('~/4-1.R')
myvars <- c("item1","item2","item3","item4","item5")
newdata <- leadership[myvars]
newdata

myvars2 <- paste("item",1:5,sep = "")
myvars2

myvars3 <- names(leadership) %in% c("item3","item4")
newdata <- leadership[!myvars3]
newdata

newdata <- leadership[c(-8,-9)]
newdata

newdata <- leadership[1:3,]
newdata

attach(leadership)
which(gender=="M"&age>30)
newdata <- leadership[which(gender=="M"&age>30),]
newdata2 <- leadership[gender=="M"&age>30,]
newdata
newdata2
detach(leadership)

newdata <- subset(leadership,age>=35 |age<24,select = c(item2,item3))
newdata
newdata <- subset(leadership,age>=35 |age<24,select = gender:item4)
newdata

newdata <- leadership[sample(1:nrow(leadership),3,replace = FALSE),]
newdata

#######4.11########
library(sqldf)

newdf <- sqldf("select * from mtcars where carb=1 order by mpg",row.names = TRUE)
newdf

newdf <- sqldf("select avg(mpg) as avg_mpg ,avg(disp) as avg_disp,gear from mtcars where cyl in (4,6) group by gear",row.names = TRUE)
newdf

console result

> source('~/4-2.R', echo=TRUE)

> #######4.9######
> authors <- data.frame(
+   surname = I(c("Tukey", "Venables", "Tierney", "Ripley", "McNeil")),
+   nationality = c("US", "Austral ..." ... [TRUNCATED] 

> authors
   surname nationality deceased
1    Tukey          US      yes
2 Venables   Australia       no
3  Tierney          US       no
4   Ripley          UK       no
5   McNeil   Australia       no

> books <- data.frame(
+   name = I(c("Tukey", "Venables", "Tierney",
+              "Ripley", "Ripley", "McNeil", "R Core")),
+   title = c("Explorat ..." ... [TRUNCATED] 

> books
      name                         title     other.author
1    Tukey     Exploratory Data Analysis             <NA>
2 Venables Modern Applied Statistics ...           Ripley
3  Tierney                     LISP-STAT             <NA>
4   Ripley            Spatial Statistics             <NA>
5   Ripley         Stochastic Simulation             <NA>
6   McNeil     Interactive Data Analysis             <NA>
7   R Core          An Introduction to R Venables & Smith

> m1 <- merge(authors, books, by.x = "surname", by.y = "name")

> m1
   surname nationality deceased                         title other.author
1   McNeil   Australia       no     Interactive Data Analysis         <NA>
2   Ripley          UK       no            Spatial Statistics         <NA>
3   Ripley          UK       no         Stochastic Simulation         <NA>
4  Tierney          US       no                     LISP-STAT         <NA>
5    Tukey          US      yes     Exploratory Data Analysis         <NA>
6 Venables   Australia       no Modern Applied Statistics ...       Ripley

> m2 <-merge(authors, books, by.x = "surname", by.y = "name", all = TRUE)

> m2
   surname nationality deceased                         title     other.author
1   McNeil   Australia       no     Interactive Data Analysis             <NA>
2   R Core        <NA>     <NA>          An Introduction to R Venables & Smith
3   Ripley          UK       no            Spatial Statistics             <NA>
4   Ripley          UK       no         Stochastic Simulation             <NA>
5  Tierney          US       no                     LISP-STAT             <NA>
6    Tukey          US      yes     Exploratory Data Analysis             <NA>
7 Venables   Australia       no Modern Applied Statistics ...           Ripley

> #######4.10######
> source('~/4-1.R')
The following objects are masked _by_ .GlobalEnv:

    age, country, date, gender

The following objects are masked from leadership (pos = 9):

    age, agecat, country, date, gender, item1, item2, item3, item4, item5,
    managerID

The following objects are masked from leadership (pos = 10):

    age, agecat, country, date, gender, item1, item2, item3, item4, item5,
    managerID

The following objects are masked from leadership (pos = 11):

    age, agecat, country, date, gender, item1, item2, item3, item4, item5,
    managerID

The following objects are masked from leadership (pos = 12):

    age, agecat, country, date, gender, item1, item2, item3, item4, item5,
    managerID

The following objects are masked from leadership (pos = 13):

    age, agecat, country, date, gender, item1, item2, item3, item4, item5,
    managerID

The following objects are masked from leadership (pos = 14):

    age, agecat, country, date, gender, item1, item2, item3, item4, item5,
    managerID

The following objects are masked from leadership (pos = 15):

    age, agecat, country, date, gender, item1, item2, item3, item4, item5,
    managerID


> myvars <- c("item1","item2","item3","item4","item5")

> newdata <- leadership[myvars]

> newdata
  item1 item2 item3 item4 item5
1     5     4     5     5     5
2     3     5     2     5     5
3     3     5     5     5     2
4     3     3     4    NA    NA
5     2     2     1     2     1

> myvars2 <- paste("item",1:5,sep = "")

> myvars2
[1] "item1" "item2" "item3" "item4" "item5"

> myvars3 <- names(leadership) %in% c("item3","item4")

> newdata <- leadership[!myvars3]

> newdata
  managerID       date country gender age item1 item2 item5 agecat
1         1 2008-10-24      US      M  32     5     4     5  young
2         2 2008-10-28      US      F  45     3     5     5  young
3         3 2008-10-01      UK      F  25     3     5     2  young
4         4 2008-10-12      UK      M  39     3     3    NA  young
5         5 2009-05-01      UK      F  NA     2     2     1   <NA>

> newdata <- leadership[c(-8,-9)]

> newdata
  managerID       date country gender age item1 item2 item5 agecat
1         1 2008-10-24      US      M  32     5     4     5  young
2         2 2008-10-28      US      F  45     3     5     5  young
3         3 2008-10-01      UK      F  25     3     5     2  young
4         4 2008-10-12      UK      M  39     3     3    NA  young
5         5 2009-05-01      UK      F  NA     2     2     1   <NA>

> newdata <- leadership[1:3,]

> newdata
  managerID       date country gender age item1 item2 item3 item4 item5 agecat
1         1 2008-10-24      US      M  32     5     4     5     5     5  young
2         2 2008-10-28      US      F  45     3     5     2     5     5  young
3         3 2008-10-01      UK      F  25     3     5     5     5     2  young

> attach(leadership)
The following objects are masked _by_ .GlobalEnv:

    age, country, date, gender

The following objects are masked from leadership (pos = 9):

    age, agecat, country, date, gender, item1, item2, item3, item4, item5,
    managerID

The following objects are masked from leadership (pos = 10):

    age, agecat, country, date, gender, item1, item2, item3, item4, item5,
    managerID

The following objects are masked from leadership (pos = 11):

    age, agecat, country, date, gender, item1, item2, item3, item4, item5,
    managerID

The following objects are masked from leadership (pos = 12):

    age, agecat, country, date, gender, item1, item2, item3, item4, item5,
    managerID

The following objects are masked from leadership (pos = 13):

    age, agecat, country, date, gender, item1, item2, item3, item4, item5,
    managerID

The following objects are masked from leadership (pos = 14):

    age, agecat, country, date, gender, item1, item2, item3, item4, item5,
    managerID

The following objects are masked from leadership (pos = 15):

    age, agecat, country, date, gender, item1, item2, item3, item4, item5,
    managerID


> which(gender=="M"&age>30)
[1] 1 4

> newdata <- leadership[which(gender=="M"&age>30),]

> newdata2 <- leadership[gender=="M"&age>30,]

> newdata
  managerID       date country gender age item1 item2 item3 item4 item5 agecat
1         1 2008-10-24      US      M  32     5     4     5     5     5  young
4         4 2008-10-12      UK      M  39     3     3     4    NA    NA  young

> newdata2
  managerID       date country gender age item1 item2 item3 item4 item5 agecat
1         1 2008-10-24      US      M  32     5     4     5     5     5  young
4         4 2008-10-12      UK      M  39     3     3     4    NA    NA  young

> detach(leadership)

> newdata <- subset(leadership,age>=35 |age<24,select = c(item2,item3))

> newdata
  item2 item3
2     5     2
4     3     4

> newdata <- subset(leadership,age>=35 |age<24,select = gender:item4)

> newdata
  gender age item1 item2 item3 item4
2      F  45     3     5     2     5
4      M  39     3     3     4    NA

> newdata <- leadership[sample(1:nrow(leadership),3,replace = FALSE),]

> newdata
  managerID       date country gender age item1 item2 item3 item4 item5 agecat
5         5 2009-05-01      UK      F  NA     2     2     1     2     1   <NA>
4         4 2008-10-12      UK      M  39     3     3     4    NA    NA  young
1         1 2008-10-24      US      M  32     5     4     5     5     5  young

> #######4.11########
> library(sqldf)

> newdf <- sqldf("select * from mtcars where carb=1 order by mpg",row.names = TRUE)

> newdf
                mpg cyl  disp  hp drat    wt  qsec vs am gear carb
Valiant        18.1   6 225.0 105 2.76 3.460 20.22  1  0    3    1
Hornet 4 Drive 21.4   6 258.0 110 3.08 3.215 19.44  1  0    3    1
Toyota Corona  21.5   4 120.1  97 3.70 2.465 20.01  1  0    3    1
Datsun 710     22.8   4 108.0  93 3.85 2.320 18.61  1  1    4    1
Fiat X1-9      27.3   4  79.0  66 4.08 1.935 18.90  1  1    4    1
Fiat 128       32.4   4  78.7  66 4.08 2.200 19.47  1  1    4    1
Toyota Corolla 33.9   4  71.1  65 4.22 1.835 19.90  1  1    4    1

> newdf <- sqldf("select avg(mpg) as avg_mpg ,avg(disp) as avg_disp,gear from mtcars where cyl in (4,6) group by gear",row.names = TRUE)

> newdf
   avg_mpg avg_disp gear
1 20.33333 201.0333    3
2 24.53333 123.0167    4
3 25.36667 120.1333    5

Functions

Merge

Merge Two Data Frames

Description

Merge two data frames by common columns or row names, or do other versions of database join operations.

Usage

merge(x, y, …)

Default S3 method:

merge(x, y, …)

S3 method for class ‘data.frame’

merge(x, y, by = intersect(names(x), names(y)),
by.x = by, by.y = by, all = FALSE, all.x = all, all.y = all,
sort = TRUE, suffixes = c(“.x”,”.y”),
incomparables = NULL, …)

paste

Concatenate Strings

Description

Concatenate vectors after converting to character.

Usage

paste (…, sep = ” “, collapse = NULL)
paste0(…, collapse = NULL)

cbind {base} R Documentation

Combine R Objects by Rows or Columns

Description

Take a sequence of vector, matrix or data frames arguments and combine by columns or rows, respectively. These are generic functions with methods for other R classes.

Usage

cbind(…, deparse.level = 1)
rbind(…, deparse.level = 1)

match {base}

Value Matching

Description

match returns a vector of the positions of (first) matches of its first argument in its second.

%in% is a more intuitive interface as a binary operator, which returns a logical vector indicating if there is a match or not for its left operand.

Usage

match(x, table, nomatch = NA_integer_, incomparables = NULL)

x %in% table

which

Which indices are TRUE?

Description

Give the TRUE indices of a logical object, allowing for array indices.

Usage

which(x, arr.ind = FALSE, useNames = TRUE)
arrayInd(ind, .dim, .dimnames = NULL, useNames = FALSE)
Arguments

x

a logical vector or array. NAs are allowed and omitted (treated as if FALSE).

arr.ind

logical; should array indices be returned when x is an array?

ind

integer-valued index vector, as resulting from which(x).

.dim

dim(.) integer vector

.dimnames

optional list of character dimnames(.), of which only .dimnames[[1]] is used.

useNames

logical indicating if the value of arrayInd() should have (non-null) dimnames at all.

subset {base}

Subsetting Vectors, Matrices and Data Frames

Description

Return subsets of vectors, matrices or data frames which meet conditions.

Usage

subset(x, …)

Default S3 method:

subset(x, subset, …)

S3 method for class ‘matrix’

subset(x, subset, select, drop = FALSE, …)

S3 method for class ‘data.frame’

subset(x, subset, select, drop = FALSE, …)

sample {base}

Random Samples and Permutations

Description

sample takes a sample of the specified size from the elements of x using either with or without replacement.

Usage

sample(x, size, replace = FALSE, prob = NULL)

sample.int(n, size = n, replace = FALSE, prob = NULL)

R & Rstudio update

首先更新源：
在/etc/apt/sources.list中加入：
deb http://cran.rstudio.com/bin/linux/ubuntu trusty/

然后进行更新：

apt-get update
apt-get install r-base

然后重新安装rstudio－server：

dpkg -r rstudio-server
gdebi rstudio-server-0.98.1103-amd64.deb

再重新打开即可使用。

如何解决R语言中The following objects are masked from litter (pos = 3): dose, gesttime, number, weight
statistics_fresh的博客
08-13 6155
The following object is masked _by_ .GlobalEnv: dose The following objects are masked from litter (pos = 3): dose, gesttime, number, weight
r语言boxcox异方差_R语言手把手 数理统计2 方差分析
weixin_30831261的博客
12-20 529
【本文用于教学】方差分析ANOVAone-way ANOVA##eg1x <- c(5,8,7,7,10,8,4,6,6,3,5,6,6,4,4,5,4,3,7,4,6,6,3,5,9,3,5,7,7,6)group <- c(rep("1",6),rep("2",6),rep("3",6),rep("4",6),rep("5",6))dat <- data.frame(x=x,...
如何解决：The following object is masked _by_ .GlobalEnv: dose
hhhhh9898的博客
07-04 1334
提示运行attach时dose被masked. 这里可能由于存在以dose命名的变量，将litter中的dose覆盖。（暂时不知道如何解决这个问题O.O）另一种运行方法：避免使用attach(), 使用table(litter$dose), 即可。如果有其他方法，或者有解决attach()的方法，欢迎补充！
《R语言实战》学习笔记第二章
weixin_63756017的博客
01-12 1557
本章内容：创建数据集 2.2 数据结构 向量 一维数组，可以用于储存数值型，字符型和逻辑型的数组，使用函数c()创建。注意同一向量中的数据必须是同一类型的。 在创建向量后，可以通过访问方括号中的位置来访问特点的元素。 例如： > a<-c("a","b","c","d","e") > a[3] [1] "c" > a[2:5] [1] "b" "c" "d" "e" 矩阵 二维数组，每个元素都拥有相同的模式。可以使用matrix()函数创建 mymatri
【数据分析 R语言实战】学习笔记 第三章 数据预处理 （下）
05-15 825
3.3缺失值处理 R中缺失值以NA表示，判断数据是否存在缺失值的函数有两个，最基本的函数是is.na()它可以应用于向量、数据框等多种对象，返回逻辑值。 > attach(data) The following objects are masked fromdata (pos = 3): city, price, salary > data$salary=replac...
Statistics for absolute beginners(study notes)
weixin_44642820的博客
11-17 832
as a subcategory of categorical variables, categorize values in a logical and meaningful sequence,contain an intrinsic ordering or sequence/分类变量的子类别。
AWS Certified Solution Architect Official Study Guide, Study Notes - EC2
TOD
10-05 408
EC2instance typesAMIsources of AMISecurely Using an Instanceaddressing an instance instance types instance types are classified basing on 4 dimensions: vCPU memory storage(size and type) network perf...
【CS 61b study notes 7】Graph & ShortPathProblem
present1012的博客
12-08 1033
学习记录
【CS 61b study notes 1】Java Intro
present1012的博客
07-08 696
Based on ucb cs61b 2021 sp , Josh Hug
【CS 61b study notes 2】Linked List & Array
present1012的博客
08-05 981
cs61b 2021 学习记录. 有问题可以指出， 会及时纠正的。 一些塑料英文可能只有我自己能看懂 ~ 存档
R语言小作业4（基本数据管理）
weixin_43678689的博客
03-22 922
一个示例 #创建数据集 > #创建leadership数据集 > manager <- c(1, 2, 3, 4, 5) > date <- c("10/24/08", "10/28/08", "10/1/08", "10/12/08", + "5/1/09") > gender <- c("M", "F", "F", "M", "...
【应用多元统计分析】上机二 判别分析
m0_72318954的博客
11-05 1064
判别分析R实现
R语言报错记录The following objects are masked from ‘package:stats’:decompose, spectrum
热门推荐
Bio大恐龙
12-27 2万+
R语言报错The following objects are masked from ‘package:stats’: decompose, spectrum 报错原因及解决方法
R语言实战 - 基本数据管理（3）
weixin_30263073的博客
09-08 563
8. 数据排序 > leadership$age [1] 32 45 25 39 NA > newdata <- leadership[order(leadership$age),] > newdata manager testDate country gender age item1 item2 item3 item4 item5 3 ...
R语言 出现的问题及解决
上帝已逝，自求多福
03-18 2万+
问题一： object(s) are masked from package - what does it mean?   Sometime when I attach a dataset, R gives me the following message/warning:"The following object(s) are masked from package:datasets:
R不同包相同函数名问题（屏蔽警告，使用不同包下相同函数名解决方案）
w7913766的博客
05-08 1万+
解决问题链接：https://stackoverflow.com/questions/39137110/what-does-the-following-object-is-masked-from-packagexxx-mean在R上使用library("gplots")时，有个警告信息， 说在gplots下与stats下都有函数lowess。搜了下，上面链接解释的很完美。Loading requi...
R语言用ROCR包出现载入程辑包：‘gplots’ The following object is masked from ‘package:stats’错误
xjw的博客
03-25 1万+
谢谢点进来，如果你觉得有帮助，麻烦点个赞。 假如在R studio运行的代码是这样的： library(ROCR) 首先看到这个问题的时候，我认为是你没有安装gplots包，可以按下图所示看是否有该包，如果没有则点击install输入包名安装。 奇怪的是本机有这个包，为什么还报错无法载入呢？ 原来是两个包中有函数重名了 。 这时候，我们只需要加上一句,就可以解决了，意思就是屏蔽这个警告信息 ...
学习记录——R语言报错：载入程辑包：‘dplyr’ The following objects are masked from ‘package:stats’: filter, lag
qq_46014571的博客
10-22 7436
学习过程遇到的问题，关于R语言报错
R语言--数据框
AnneQiQi的博客
05-22 7515
数据框 数据框是一种矩阵形式的数据，数据框各列中的数据可以是不同类型的数据。数据框每一列认为是一个变量，每一行是一个观测；看以看做是矩阵的推广。 数据框的生成函数：data.frame()   列入数据框列表的限制： 1：他的分量必须是向量 ---- 数值，字符，逻辑 -----因子 -----数值矩阵 -----列表 ------其他数据框（实现了数据框的嵌套） 2：矩阵、
Better Notes for Zotero
最新发布
03-30
### Better Notes Plugin for Zotero Better Notes 是一款专为 Zotero 设计的增强型笔记管理插件，旨在提升用户在文献管理和笔记记录方面的效率。以下是关于该插件的一些核心功能和特点： #### 功能概述 1. **集成...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值