Variación

Gráfico de barras

gBar(d=D,x=0,y=0,n=0,p=‘d’,lm=’‘,lx=’‘,ly=’‘,lg=’‘,X=’‘,Y=’’,a=0,f=12,c=1,l=F,z=F,k=T,v=F,t=F){
(d:Datos,x,y,n:Ejes,p:Posición([d]odge,[s]tack,[f]ill),lm,lx,ly,lg:Rótulos,X,Y:Reordenación
a:Ángulo de rótulos-X,f:Tamaño de letras,c:Paleta de color,l:Logaritmo,z:Inicio zero,
k:Números,v:Gráfico vertical,t:Transponer

D=Ip('x45.txt') #Ejemplo sencillo (forma amplia)

## File: x45.txt / Class: data.frame / Rows: 4 / Columns: 5
##  
##    A  B  C  D  E 
## w1 10 19 14  7 12
## w2 11  7 10  0  1
## w3  0  0  1 12  1
## w4  0  1  2  3  3

gBar() #Por defecto

gBar(p='s') #p:Posición=[s]tack

gBar(p='f',k=T,v=T) #p:Posición=[f]ill

gBar(lx='Región',ly='Porcentaje',lg='Palabra') #Rótulos

gBar(X='w2,w1,w3,w4',Y='B,A,C,D,E') #Reordinar

gBar(a=90) #a:Ángulo de rótulos-X=90

gBar(f=15) #f:Tamaño de letras=15

gBar(c=0) #Paleta de color=0 (Blanco y negro)

gBar(c=1) #Paleta de color=1 (Por defecto)

gBar(c=2) #Paleta de color=2

gBar(c=3) #Paleta de color=3

gBar(c=10) #Paleta de color=10

gBar(c='tomato,green,#a19df1,grey,black') #Asignación de color

gBar(l=T) #l:Logaritmo=T

gBar(k=F) #k:Números=F

gBar(v=T) #v:Gráfico vertical

gBar(k=T,v=T) #k:Números; v:Gráfico vertical

gBar()+gBar(t=T) #Sin transponer + Transponer (t=T)

D=Ip('x45L'); Dt() # Ejemplo sencillo (forma larga)

## File: x45L.txt / Class: data.frame / Rows: 20 / Columns: 3
##  
##    v1 v2 n 
## 1  w1 A  10
## 2  w1 B  19
## 3  w1 C  14
## 4  w1 D   7
## 5  w1 E  12
## 6  w2 A  11
## 7  w2 B   7
## 8  w2 C  10
## 9  w2 D   0
## 10 w2 E   1

## Class: data.frame / Rows: 20 / Columns: 3
##  
##    v1 v2 n 
## 1  w1 A  10
## 2  w1 B  19
## 3  w1 C  14
## 4  w1 D   7
## 5  w1 E  12
## 6  w2 A  11
## 7  w2 B   7
## 8  w2 C  10
## 9  w2 D   0
## 10 w2 E   1

gBar(x=1,y=2,n=3)  # Asignar ejes (x,y,n)

Gráfico de barras en faceta

gBarFacet(d=D,x=0,y=0,n=0,lx=’‘,ly=’‘,X=’‘,Y=’’,a=0,f=12,c=1,l=F,z=F,k=F,v=F,t=F,e=F)
d:Datos,x,y,n:Ejes,p:Posición([d]odge,[s]tack,[f]ill),lm,lx,ly:Rótulos,X,Y:Reordenación
a:Ángulo de rótulos-X,f:Tamaño de letras,c:Paleta de color,l:Logaritmo,z:Inicio zero,
k:Números,v:Gráfico vertical,t:Transponer,e:faceta vertical

D=Ip('x45') #Ejemplo sencillo: Matriz de números, 4x5

## File: x45.txt / Class: data.frame / Rows: 4 / Columns: 5
##  
##    A  B  C  D  E 
## w1 10 19 14  7 12
## w2 11  7 10  0  1
## w3  0  0  1 12  1
## w4  0  1  2  3  3

gBarFacet()  #Por defecto

gBarFacet(lx='Región',ly='Porcentaje') #Rótulos

gBarFacet(X='w2,w1,w3,w4',Y='B,A,C,D,E') #Reordinar

gBarFacet(a=90) #a:Ángulo de rótulos-X=90

gBarFacet(f=15) #f:Tamaño de letras=15

gBarFacet(c=0) #Paleta de color=0 (Blanco y negro)

gBarFacet(c=1) #Paleta de color=1 (Por defecto)

gBarFacet(c=2) #Paleta de color=2

gBarFacet(c=3) #Paleta de color=3

gBarFacet(c=10) #Paleta de color=10

gBarFacet(c='tomato,green,#a19df1,grey,black') #Asignación de color

gBarFacet(l=T) #l:Logaritmo=T

gBarFacet(k=F) #k:Números=F

gBarFacet(v=T) #v:Gráfico vertical

gBarFacet(k=T,v=T) #k:Números; v:Gráfico vertical

gBarFacet()+gBarFacet(t=T) #Sin transponer + Transponer (t=T)

D=Ip('x45L') #Ejemplo sencillo (forma larga)

## File: x45L.txt / Class: data.frame / Rows: 20 / Columns: 3
##  
##    v1 v2 n 
## 1  w1 A  10
## 2  w1 B  19
## 3  w1 C  14
## 4  w1 D   7
## 5  w1 E  12
## 6  w2 A  11
## 7  w2 B   7
## 8  w2 C  10
## 9  w2 D   0
## 10 w2 E   1

gBarFacet(x=1,y=2,n=3,k=T) #Asignar ejes (x,y,n)

gBarFacet(x=1,y=2,n=3,k=T)+gBarFacet(x=1,y=2,n=3,k=T,t=T) #Sin transponer + Transponer (t=T)

Gráfico de líneas

gLine(d=D,x=0,y=0,n=0,lm=’‘,lx=’‘,ly=’‘,lg=’‘,X=’‘,Y=’’,a=0,f=12,c=1,l=F,z=F,k=F,v=F,t=F,u=0)
d:Datos,x,y,n:Ejes,lm,lx,ly:Rótulos,X,Y:Reordenación
a:Ángulo de rótulos-X,f:Tamaño de letras,c:Paleta de color,l:Logaritmo,z:Inicio zero,
k:Números,v:Gráfico vertical,t:Transponer,e:faceta vertical
U:Unión de líneas y rótulos (0:Nulo, 1:izquierda, 2:Derecha, 3:izquierda/Derecha)

D=Ip('x45.txt') #Ejemplo sencillo (forma amplia)

## File: x45.txt / Class: data.frame / Rows: 4 / Columns: 5
##  
##    A  B  C  D  E 
## w1 10 19 14  7 12
## w2 11  7 10  0  1
## w3  0  0  1 12  1
## w4  0  1  2  3  3

gLine(lx='Palabra',ly='Frecuencia',lg='Región') #Rótulos

gLine(X='w2,w1,w3,w4',Y='B,A,C,D,E') #Reordinar

gLine(a=90) #a:Ángulo de rótulos-X=90

gLine(f=15) #f:Tamaño de letras=15

gLine(c=0) #Paleta de color=0 (Blanco y negro)

gLine(c=1) #Paleta de color=1 (Por defecto)

gLine(c=2) #Paleta de color=2

gLine(c=3) #Paleta de color=3

gLine(c=10) #Paleta de color=10

gLine(c='tomato,green,#a19df1,grey,black') #Asignación de color

gLine(l=T) #l:Logaritmo=T

gLine(k=F) #k:Números=F

gLine(v=T) #v:Gráfico vertical

gLine(k=T,v=T) #k:Números; v:Gráfico vertical

gLine()+gLine(t=T) #t:Transponer

gLine(u=1) #u=1:Unión de líneas y rótulos (Izquierda)

gLine(u=2) #u=2:Unión de líneas y rótulos(Derecha)

gLine(u=3) #u=3:Unión de líneas y rótulos(Izquierda/Derecha)

gLine()+gLine(t=T) #Sin transponer + Transponer (t=T)

D=Ip('x45L') # Ejemplo sencillo (forma larga)

## File: x45L.txt / Class: data.frame / Rows: 20 / Columns: 3
##  
##    v1 v2 n 
## 1  w1 A  10
## 2  w1 B  19
## 3  w1 C  14
## 4  w1 D   7
## 5  w1 E  12
## 6  w2 A  11
## 7  w2 B   7
## 8  w2 C  10
## 9  w2 D   0
## 10 w2 E   1

gLine(x=1,y=2,n=3)+gLine(x=1,y=2,n=3,k=T,t=T) #Sin transponer + Transponer (t=T)

D=caith; Dt() #Datos: caith

## Class: data.frame / Rows: 4 / Columns: 5
##  
##        fair red medium dark black
## blue   326   38 241    110   3   
## light  688  116 584    188   4   
## medium 343   84 909    412  26   
## dark    98   48 403    681  85

gLine() #数値行列

Gráfico de áreas

gArea(d=D,x=0,y=0,n=0,p=‘s’,lm=’‘,lx=’‘,ly=’‘,lg=’‘,X=’‘,Y=’’,a=0,f=12,c=1,l=F,z=F,k=F,v=F,t=F)
d:Datos,x,y,n:Ejes,lm,lx,ly:Rótulos,X,Y:Reordenación
a:Ángulo de rótulos-X,f:Tamaño de letras,c:Paleta de color,l:Logaritmo,z:Inicio zero,
k:Números,v:Gráfico vertical,t:Transponer,e:faceta vertical
U:Unión de líneas y rótulos (0:Nulo, 1:izquierda, 2:Derecha, 3:izquierda/Derecha)

D=Ip('x45') #Ejemplo sencillo (forma amplia)

## File: x45.txt / Class: data.frame / Rows: 4 / Columns: 5
##  
##    A  B  C  D  E 
## w1 10 19 14  7 12
## w2 11  7 10  0  1
## w3  0  0  1 12  1
## w4  0  1  2  3  3

gArea(lx='Palabra',ly='Frecuencia',lg='Región') #Rótulos

gArea(X='w2,w1,w3,w4',Y='B,A,C,D,E') #Reordinar

gArea(a=90) #a:Ángulo de rótulos-X=90

gArea(f=15) #f:Tamaño de letras=15

gArea(c=0) #Paleta de color=0 (Blanco y negro)

gArea(c=1) #Paleta de color=1 (Por defecto)

gArea(c=2) #Paleta de color=2

gArea(c=3) #Paleta de color=3

gArea(c=10) #Paleta de color=10

gArea(c='tomato,green,#a19df1,grey,black') #Asignación de color

gArea(l=T) #l:Logaritmo=T

gArea(k=F) #k:Números=F

gArea(v=T) #v:Gráfico vertical

gArea(k=T,v=T) #k:Números; v:Gráfico vertical

gArea()+gArea(t=T) #t:Transponer

D=Ip('x45L')

## File: x45L.txt / Class: data.frame / Rows: 20 / Columns: 3
##  
##    v1 v2 n 
## 1  w1 A  10
## 2  w1 B  19
## 3  w1 C  14
## 4  w1 D   7
## 5  w1 E  12
## 6  w2 A  11
## 7  w2 B   7
## 8  w2 C  10
## 9  w2 D   0
## 10 w2 E   1

gArea(x=1,y=2,n=3) #Ejemplo sencillo (forma larga)

Histografía

gHist(df=D,x=1,g=0,p=‘d’,lx=’‘,ly=’’,b=10,f=10,c=1,z=F,k=F,v=F)
df:Datos,x:Columna-x,g:Columna de grupo,p:Posición [d]odge,[s]tack,[f]ill),lx,ly:Rótulos(x,y)，
b:Número de barras,z:Inicio zero,f:Tamaño de letras,c:Paleta de color,k:Números,v:Gráfico vertical

D=iris; Dt() #Datos:iris

## Class: data.frame / Rows: 150 / Columns: 5
##  
##    Sepal.Length Sepal.Width Petal.Length Petal.Width Species
## 1  5.1          3.5         1.4          0.2         setosa 
## 2  4.9          3.0         1.4          0.2         setosa 
## 3  4.7          3.2         1.3          0.2         setosa 
## 4  4.6          3.1         1.5          0.2         setosa 
## 5  5.0          3.6         1.4          0.2         setosa 
## 6  5.4          3.9         1.7          0.4         setosa 
## 7  4.6          3.4         1.4          0.3         setosa 
## 8  5.0          3.4         1.5          0.2         setosa 
## 9  4.4          2.9         1.4          0.2         setosa 
## 10 4.9          3.1         1.5          0.1         setosa

gHist()#Eje-x=1('Sepallength')

gHist(c=0)#c=0:Blanco y negro

gHist(c=2)#c=1~10:Paleta de color

gHist(x=1,g=5)#Columna-x, g:Columna de grupo=5

gHist(x=1,g=5,c=0)#Id.+Paleta de color=0 (Blanco y negro)

gHist(x=1,g=5,c=1)#Id.+Paleta de color=0 (Por defecto)

gHist(x=1,g=5,c=2)#Id.+Paleta de color=2

gHist(x=1,g=5,p='s')#Id.+Posición=[S]tack

gHist(x=1,g=5,p='f')#Id.+Posición=[F]ill

gHist(x=1,g=5,p='f',k=T)#Id.+k:Números=T

gHist(x=1,g=5,lx='Sepal length',ly='Count',lg='Species')#Id.+Rótulos(x,y)

gHist(x=1,g=5,f=15)#Id.+f:Tamaño de letras=15

gHist(x=1,g=5,z=T)#Id.+z:Inicio zero

gHist(x=1,g=5,k=T)#Id.+k:Números=T

gHist(x=1,g=5,k=T,v=T)#Id.+v:Gráfico vertical=T

—–

Referencia

Portada

(Hiroto Ueda, Universidad de Tokio, 2022)