在R中，数组（Arrary）可以看做是带多个下标的相同类型的元素集合，常用的是数值型的数组如矩阵，也可以是别的类型的数组，比如字符型，逻辑型等。
Dim属性是数组中很重要的属性，也叫维数向量，当维数向量有两个值时代表为矩阵，有一个值时代表为一维数组。
#使用向量生成数组或者矩阵
c<-1:12
c
# [1]  1  2  3  4  5  6  7  8  9 10 11 12
dim(c)<-c(3,4)
c
#       [,1] [,2] [,3] [,4]
# [1,]    1    4    7   10
# [2,]    2    5    8   11
# [3,]    3    6    9   12

dim(c)<-12
c
# [1]  1  2  3  4  5  6  7  8  9 10 11 12
class(c)
# [1] "array"

#使用Arrary来生成数组a   arrary (data,dim=length(data))
a<-array(1:12,dim=c(3,4))
a

#       [,1] [,2] [,3] [,4]
# [1,]    1    4    7   10
# [2,]    2    5    8   11
# [3,]    3    6    9   12

#使用matrix来构造矩阵（二维数组）matrix(data,nrow=,ncol=,byrow=True)
a<-matrix(1:12,3,4) #构建一个3行4列的矩阵
a

#数组下标的使用
#数组可以通过1、精确指定下标2、以空值代表所有下标， 3、以向量形式指出下标 4、通过数组形式指出下标

a<-1:24
dim(a)<-c(2,3,4)  #定义一个三维数组

a[1,2,3]
# [1] 15
a[,,3]
#       [,1] [,2] [,3]
# [1,]   13   15   17
# [2,]   14   16   18

a[,2:3,1:2]
# , , 1
# 
#       [,1] [,2]
# [1,]    3    5
# [2,]    4    6
# 
# , , 2
# 
#       [,1] [,2]
# [1,]    9   11
# [2,]   10   12

#在不改变数组维度的情况下，将其赋值为0
a[]<-0
a

#也可以用其它数组的值来表示该数组的下标
b<-matrix(c(1,1,1,2,2,3,1,3,4,2,1,4),nrow = 3,ncol = 3)
b
#       [,1] [,2] [,3]
# [1,]    1    2    1
# [2,]    1    2    3
# [3,]    1    3    4

a[b]
# [1]  3 15 23

#同样的我们还可以对其进行赋值运算
a[b]<-0
# a
# , , 1
# 
# [,1] [,2] [,3]
# [1,]    1    0    5
# [2,]    2    4    6
# 
# , , 2
# 
# [,1] [,2] [,3]
# [1,]    7    9   11
# [2,]    8   10   12
# 
# , , 3
# 
# [,1] [,2] [,3]
# [1,]   13    0   17
# [2,]   14   16   18
# 
# , , 4
# 
# [,1] [,2] [,3]
# [1,]   19   21    0
# [2,]   20   22   24

#数组和矩阵的四则运算是对应元素之间的运算，一般是结构相同才能运算
#数组和矩阵运算时，是对矩阵的列运算，不匹配时，一般会有警告

#apply函数 apply(A,margin,fun)
#a代表矩阵，margin=1 代表按行进行fun函数，=2代表按列进行fun函数
a<-1:6
dim(a)<-c(2,3)
a
#       [,1] [,2] [,3]
# [1,]    1    3    5
# [2,]    2    4    6
apply(a,1,sum)
# [1]  9 12


#矩阵的运算包含转置、求特征向量、特征根等，笔者用到的不多，以后再总结

R语言中的数据类型（Data Types）

R语言的对象（Objects）主要包括向量、矩阵、数组、数据框和列表。



R语言的对象有五种最基本的类型，即，字符型（character）、数值型（numeric，包括小数）、整型（integer）、复数型（complex）以及逻辑型（logical，TRUE/FALSE）

属性是R语言对象的一部分。主要包括以下几种：名字（names，dimnames），维度（dimensions，包括矩阵等），类别（class，包括数字、整数等），长度（length），以及其他。可通过attributes()函数查看对象的属性，不是所有对象都有属性，如果没有则返回NULL。

1. 向量

向量（vector）是R语言中最基本的数据类型，执行组合功能的函数c()可用来创建向量。

各类向量如下例所示：



a <- c (1, 2, 7, -4, 5)            ## numeric
b <- c ("Rice", "Wheat")           ## character
c <- c (TRUE, TRUE, FALSE, TRUE)   ## logical
d <- c (1+0i, 2+4i)                ## complex
e <- c (9:17)                      ## integer

注意：单个向量中的数据必须拥有相同的类型（数值型、字符型或逻辑型）。

创建空向量可以使用vector()函数。例如创建一个指定长度为10、类型为数值型的空向量：



> x <- vector("numeric", length = 10)
> x
 [1] 0 0 0 0 0 0 0 0 0 0

另外，标量是只含一个元素的向量，它们用于保存常量。例如



f <- 3
g <- "US"
h <- TRUE



2. 矩阵

矩阵（matrice）是具有维度属性的向量，矩阵都是二维的，和向量类似，矩阵中也仅能包含一种数据类型。

主要有三种创建矩阵的方法：

（1）直接创建

例：数字1-20自动创建为一个5行4列的矩阵，自动填充第一列之后开始填充第二列



y <- matrix(1:20, nrow = 5, ncol = 4)
> y
     [,1] [,2] [,3] [,4]
[1,]    1    6   11   16
[2,]    2    7   12   17
[3,]    3    8   13   18
[4,]    4    9   14   19
[5,]    5   10   15   20
> dim(y)                          
[1] 5 4                            ##dim()看维度，5行4列

（2）矢量+维度向量

添加维度向量dim()是将矢量转变为矩阵的方法



> m <- c(1:10)
> m
 [1]  1  2  3  4  5  6  7  8  9 10
> dim(m) <- c(2,5)                   ##2行5列          
> m
     [,1] [,2] [,3] [,4] [,5]
[1,]    1    3    5    7    9
[2,]    2    4    6    8   10

（3）绑定行或列来创建矩阵

绑定行或绑定列可以通过cbind()和rbind()来实现



> x <- 1:3
> y <- 10:12
> cbind (x, y)
     x  y
[1,] 1 10
[2,] 2 11
[3,] 3 12
> rbind (x, y) 
  [,1] [,2] [,3]
x    1    2    3
y   10   11   12



3. 数组

数组（array）与矩阵类似，但是维度可以大于2。数组可通过array函数创建。



4. 列表

列表（list）是一种可包含多种不同类型对象的向量，是一些对象（或成分，component）的有序集合。



> x <- list(1, "a", TRUE, 1 + 4i) 
> x
[[1]]
[1] 1

[[2]]
[1] "a"

[[3]]
[1] TRUE

[[4]]
[1] 1+4i



5.数据框

数据框（Data Frames）是一种特殊的列表，其中所用元素长度都相等，列表中的每个元素都可以看作一列，每个元素的长度可以看作行数。

创建显式数据框的方法是data.frame()



> ID <- c(1,2,3,4)
> age <- c(25,26,55,43)
> diabetes <- c("Type1","Type2","Type3","Type1")
> status <- c("Poor", "Improved", "Excellent","Poor")
> data <- data.frame(ID, age, diabetes, status)
> data
  ID age diabetes    status
1  1  25    Type1      Poor
2  2  26    Type2  Improved
3  3  55    Type3 Excellent
4  4  43    Type1      Poor


  
参考资料： 

  1. Coursera视频课程：https://www.coursera.org/learn/r-programming/home/welcome R Programming, Johns Hopkins University 

  2. https://bookdown.org/rdpeng/rprogdatascience/R Programming for Data Science  

  3. 《R语言实战》 Robert I. Kabacoff

在学习中遇到从列表框读取多维数组的问题，例如在textbox中有一个二维数组如下



那么如何将其写入数组array1（，）中呢。在这个问题中主要遇到的问题是将文本框中数组按行（vbcrlf）和空格（“ ”）分别split一次，在textbox的属性中有lines可以轻松的读取改行的信息。故创建如下ui及代码进行实验。

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        TextBox2.Text = TextBox1.Lines(1)
        TextBox3.Text = TextBox1.Lines.Count
        Dim array1() As String
        Dim array2(,) As String
        Dim i, k, m As Integer
        array1 = Split(Trim(TextBox1.Lines(0)), " ")
        i = TextBox1.Lines.GetUpperBound(0)
        For k = 0 To i
            array1 = Split(Trim(TextBox1.Lines(k)), " ")
            m = array1.GetUpperBound(0)
            ReDim Preserve array2(i, m)
            For j As Integer = 0 To m
                array2(k, j) = array1(j)
            Next

        Next
        Dim z, x As Integer
        For z = 0 To array2.GetUpperBound(0)
            For x = 0 To array2.GetUpperBound(1)
                TextBox4.Text += array2(z, x) & " "
            Next
            TextBox4.Text += vbCrLf
        Next
    End Sub
End Class

 <textarea cols="50" rows="15" name="code" class="javascript">options数组 

　　该数组是select对象的一个属性,即选择框中的所有选项(<OPTION>)的一个列表。 

　　属性 

　　defaultSelected 选项列表中的缺省选项 
　　index 选项列表中某选项的索引位置 
　　length 选项列表中的选项数(<OPTIONS>) 
　　name 选项列表的名字(NAME特性) 
　　selected 表示选项列表中某选项<OPTION>是否被选中的一个布尔类型值 
　　selectedIndex 选项列表中已选中的<OPTION>的索引(位置) 
　　text 选项列表中<OPTION>标记后的文本 
　　value 选项列表中的VALUE=特性

Array 数组
 
1. var array = new Array(12,23......);//创建数组，初始化数组值为：12，13....
2. var array = new Array(12);//创建数组，数组大小为12
3. var array = new Array();//创建数组
 for (var i = 0; i < length; i++) {
         aCity[i] = new Array();//创建二维数组
     }
 for (var i = 0; i < length; i++) {
  for (var j = 0; j < length; j++) {
          aCity[i][j] = "";//给二维数组赋值
          aCity[i][j] = "";  
  }
     }

例子：
通过声明二维数组绑定SELECT下拉菜单

<HTML>
<HEAD>
<TITLE>动态改变下拉菜单内容示例</TITLE>
</HEAD>
<SCRIPT LANGUAGE=javascript>
//定义一个二维数组aArray,用于存放城市名称。
var aCity=new Array();
aCity[0]=new Array();
aCity[1]=new Array();
aCity[2]=new Array();
aCity[3]=new Array();
//赋值，每个省份的城市存放于数组的一行。
aCity[0][0]="--请选择--";
aCity[1][0]="--请选择--";
aCity[1][1]="广州市";
aCity[1][2]="深圳市";
aCity[1][3]="珠海市";
aCity[1][4]="汕头市";
aCity[1][5]="佛山市";
aCity[2][0]="--请选择--";
aCity[2][1]="长沙市";
aCity[2][2]="株州市";
aCity[2][3]="湘潭市";
aCity[3][0]="--请选择--";
aCity[3][1]="杭州市";
aCity[3][2]="苏州市";
aCity[3][3]="温州市";
function ChangeCity()
{
var i,iProvinceIndex;
iProvinceIndex=document.frm.optProvince.selectedIndex;
iCityCount=0;
while (aCity[iProvinceIndex][iCityCount]!=null)
iCityCount++;
//计算选定省份的城市个数
document.frm.optCity.length=iCityCount;//改变下拉菜单的选项数
for (i=0;i<=iCityCount-1;i++)//改变下拉菜单的内容
document.frm.optCity[i]=new Option(aCity[iProvinceIndex][i]); 
document.frm.optCity.focus();
} 
</SCRIPT>
<BODY ONfocus=ChangeCity()>
<H3>选择你所在的省份及城市</H3>
<FORM NAME="frm">
<P>省份：
<SELECT NAME="optProvince" SIZE="1" ONCHANGE=ChangeCity()>
<OPTION>--请选择--</OPTION>
<OPTION>广东省</OPTION>
<OPTION>湖南省</OPTION>
<OPTION>浙江省</OPTION>
</SELECT>
</P>
<P>城市：
<SELECT NAME="optCity" SIZE="1">
<OPTION>--请选择--</OPTION> 
</SELECT>
</P>
</FORM>
</BODY>
</HTML>


 </textarea>