大家好，本期小云將通過幾道題目幫助大家更好地掌握之前介紹過的知識。

第一題：合并不同數(shù)據(jù)類型的向量，并告訴我向量合并后的數(shù)據(jù)類型是什么？

char_vector<-c("zhangsan","lisi","wangwu")

num_vector<-c(1,2,3)

combined_vector<-c(char_vector,num_vector)

combined_vector

###合并后的向量包含了字符類型和數(shù)值類型的數(shù)據(jù)，但是數(shù)值類型的數(shù)據(jù)被轉(zhuǎn)換成了字符類型。

第二題：x是-1到1之間均勻分布的長度為100的向量，請寫程序定義一個向量y，y=1-x,x<0；y=1+x,x>=0

x<-runif(100,-1,1)

get_y<-function(x){

??ifelse(x<0,1-x,1+x)

}

y<-get_y(x)

y

#3.寫程序定義變量ages，表示100個20~70歲的成年人年齡，并以每10歲作為區(qū)間統(tǒng)計(jì)各個年齡段的人數(shù)

ages<-sample(20:70,replace = TRUE)

age_groups<-cut(ages,seq(20,70,10))

age_counts<-table(age_groups)

age_counts

#4.寫程序生成10*10的單位矩陣和對角線上分別為1:10的對角矩陣

unit_matrix<-diag(10)

unit_matrix

diag_matrix<-diag(1:10)

diag_matrix

#5.寫程序生成如下矩陣，并用apply命令按列進(jìn)行求和

A<-matrix(c(NA,9,17,25,3,NA,19,27,5,13,NA,29,7,15,23,NA),ncol=4)

A

apply(A, 2, sum,na.rm=T)

#6.利用R內(nèi)部mtcars數(shù)據(jù)，計(jì)算mpg、 drat和wt列數(shù)據(jù)的中位值（median）、平均值（mean）及標(biāo)準(zhǔn)差（sd）；并按cyl分組，計(jì)算不同組別的mpg、 drat和wt列數(shù)據(jù)的平均值(mean)

library(dplyr)

mpg_median <- median(mtcars$mpg)

mpg_mean <- mean(mtcars$mpg)

mpg_sd <- sd(mtcars$mpg)

drat_median <- median(mtcars$drat)

drat_mean <- mean(mtcars$drat)

drat_sd <- sd(mtcars$drat)

wt_median <- median(mtcars$wt)

wt_mean <- mean(mtcars$wt)

wt_sd <- sd(mtcars$wt)

mtcars %>%

??group_by(cyl) %>%

??summarise(mpg_mean = mean(mpg), drat_mean = mean(drat), wt_mean = mean(wt))

#7.寫程序生成從1到100的整數(shù)，若數(shù)字為7的倍數(shù)，打印數(shù)字，若數(shù)字為9的倍數(shù)，打印'NA' ，其余情況不輸出。

for (i in 1:100) {

??if (i %% 7 == 0) {

????cat(i, "\n")

??} else if (i %% 9 == 0) {

????cat("NA", "\n")

??}

}

#2.寫程序輸出下三角表示的九九乘法表。

# 生成九九乘法表

result <- matrix(0, nrow = 9, ncol = 9)

for (i in 1:9) {

??for (j in 1:i) {

????result[i, j] <- i * j

??}

}

# 打印下三角形式的九九乘法表

for (i in 1:9) {

??for (j in 1:i) {

????cat(i,'*',j,'=',result[i, j], "\t")

??}

??cat("\n")

}

?

以上就是本期小云帶學(xué)的內(nèi)容啦。請持續(xù)關(guān)注小云，我們下期見~

篩選免疫基因?qū)π」ぞ撸簑ww.biocloudservice.com/589/589.php