R數(shù)據(jù)框操作fourthday的示例分析

這期內(nèi)容當(dāng)中小編將會給大家?guī)碛嘘P(guān)R數(shù)據(jù)框操作fourth day的示例分析,文章內(nèi)容豐富且以專業(yè)的角度為大家分析和敘述,閱讀完這篇文章希望大家可以有所收獲。

公司主營業(yè)務(wù):成都網(wǎng)站設(shè)計、成都做網(wǎng)站、移動網(wǎng)站開發(fā)等業(yè)務(wù)。幫助企業(yè)客戶真正實現(xiàn)互聯(lián)網(wǎng)宣傳,提高企業(yè)的競爭能力。創(chuàng)新互聯(lián)是一支青春激揚、勤奮敬業(yè)、活力青春激揚、勤奮敬業(yè)、活力澎湃、和諧高效的團隊。公司秉承以“開放、自由、嚴(yán)謹(jǐn)、自律”為核心的企業(yè)文化,感謝他們對我們的高要求,感謝他們從不同領(lǐng)域給我們帶來的挑戰(zhàn),讓我們激情的團隊有機會用頭腦與智慧不斷的給客戶帶來驚喜。創(chuàng)新互聯(lián)推出都安免費做網(wǎng)站回饋大家。

#導(dǎo)入數(shù)據(jù)集
install.packages("readxl")
library(readxl)
tianmao<-read_excel('tianmaoTV.xlsx',skip =1 )
#創(chuàng)建新變量
tianmao['total_sales']<-tianmao$current_price*tianmao$month_sales_count
tianmao[c('current_price','month_sales_count','total_sales')]
tianmao
tianmao$zhekou<-tianmao$current_price/tianmao$original_price
tianmao$zhekou
#條件判斷
a<-1:10
ifelse(a%%2==0,'偶數(shù)','奇數(shù)')
#對價格分類
tianmao['price_class']<-ifelse(tianmao$current_price<1000,'低價',
ifelse(tianmao$current_price<=2000,'適中','高價'))
tianmao[c('price_class','current_price')]#創(chuàng)建新變量 對之前的變量直接操作 第二章對變量進行判
#重命名
names(tianmao)#返回列名
names(tianmao)[1]<-'mingcheng' #修改第一列
View(tianmao)#視圖
#不知道列在第幾個
%in% #判斷前一個向量的元素是否在后面的向量中
names(tianmao)[1]<-'mingcheng'
names(tianmao)%in%"weight"
names(tianmao)[names(tianmao)%in%"weight"]<-'zhongliang'
names(tianmao)#變量重名名
#從數(shù)據(jù)集中提取子集
newdata<-tianmao[,-c(1:3)]
newdata
names(newdata)
names(tianmao)
剔除數(shù)據(jù)集
col1<-c('mingcheng','description','current_price')
logical<-names(tianmao)%in%col1
#當(dāng)作索引刪除子集
newdata1<-tianmao[,!logical]
View(newdata1)
#對行進行操作
tianmao[1,] #第一行
logical1<-tianmao$brand=='Xiaomi/小米'
#提取觀測
xiaomi<-tianmao[logical1,]
View(xiaomi)
logical1
#提取子集的方法
?subset
xiaomi1<-subset(tianmao,brand=='Xiaomi/小米',c("mingcheng","description"))
names(tianmao)

導(dǎo)入 tianmaoTV.xlsx,并把數(shù)據(jù)集命名成 tianmao_2,以下操作都基于 tianmao_2 數(shù)
據(jù)集
提取當(dāng)前價格(current_price)小于 1000 的所有觀測
在數(shù)據(jù)集 tianmao_2 中生成一個新列,將新列命名為 stock_class。
當(dāng)庫存(stock)等于 0,stock_class 的值為'無貨';
庫存(stock)小于 100,stock_class 的值為'低庫存';
庫存(stock)大于等于 100,stock_class 的值為'高庫存'
提取 tianmao_2 的 stock、stock_class 兩列
將列名為"shop_id","shop_name" 的兩列刪除掉

上述就是小編為大家分享的R數(shù)據(jù)框操作fourth day的示例分析了,如果剛好有類似的疑惑,不妨參照上述分析進行理解。如果想知道更多相關(guān)知識,歡迎關(guān)注創(chuàng)新互聯(lián)行業(yè)資訊頻道。

分享文章:R數(shù)據(jù)框操作fourthday的示例分析
當(dāng)前鏈接:http://m.kartarina.com/article16/ppppdg.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供網(wǎng)站策劃用戶體驗網(wǎng)站設(shè)計公司App設(shè)計小程序開發(fā)網(wǎng)站收錄

廣告

聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主,如果涉及侵權(quán)請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場,如需處理請聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載,或轉(zhuǎn)載時需注明來源: 創(chuàng)新互聯(lián)

成都網(wǎng)頁設(shè)計公司
主站蜘蛛池模板: 精品久久久无码中文字幕天天| 成人免费无码大片a毛片 | 亚洲日韩一区二区一无码| 无码爆乳护士让我爽| 无码精品人妻一区| 亚洲av日韩av高潮潮喷无码| 亚洲AV永久无码精品一福利| 无套内射在线无码播放| 亚洲午夜无码AV毛片久久| 精品欧洲AV无码一区二区男男| 惠民福利中文字幕人妻无码乱精品 | 天堂Av无码Av一区二区三区| 成年无码av片完整版 | 亚洲精品~无码抽插| 97在线视频人妻无码| 亚洲熟妇无码一区二区三区 | 亚洲av无码专区国产乱码在线观看| 亚洲中文久久精品无码1| 国产真人无码作爱视频免费| 97在线视频人妻无码| 国产精品亚洲专区无码牛牛 | 日韩久久无码免费毛片软件| 亚洲国产精品无码专区在线观看 | 亚洲av无码有乱码在线观看| 国产成人AV片无码免费| 精品久久久久久无码中文字幕| 无码办公室丝袜OL中文字幕 | 亚洲国产成人精品无码区在线观看| 无码h黄肉3d动漫在线观看| 日韩av片无码一区二区不卡电影 | 无码av人妻一区二区三区四区| 亚洲av永久无码精品国产精品| 精品无码久久久久久久动漫| 亚洲 无码 在线 专区| 亚洲Av无码乱码在线znlu| 下载天堂国产AV成人无码精品网站| 精品久久久久久无码中文野结衣| 中文AV人妻AV无码中文视频| 毛片一区二区三区无码| 日本精品人妻无码免费大全 | 亚洲Av无码国产情品久久|