Obtenha o tipo de todas as variáveis


118

Em R, gostaria de recuperar uma lista de variáveis ​​globais no final do meu script e iterar sobre elas. Aqui está o meu código

#declare a few sample variables
a<-10
b<-"Hello world"
c<-data.frame()

#get all global variables in script and iterate over them
myGlobals<-objects()
for(i in myGlobals){
  print(typeof(i))     #prints 'character'
}

Meu problema é que typeof(i)sempre retorna charactermesmo sendo variável ae cnão são variáveis ​​de caráter. Como posso obter o tipo original de variável dentro do loop for?


Nota para as pessoas que estão lendo esta pergunta: typeof()fornece uma informação muito genérica sobre como o objeto é armazenado na memória. Para a maioria dos casos de uso, se você quer saber boas informações sobre uma variável x, você poderá obter mais informações úteis a partir de class(x), is(x)ou str(x)(em ordem de quanto detalhe que eles fornecem). Veja a resposta de Eric abaixo para exemplos do que typeof()diz a você: fatores são integer; listas, quadros de dados, objetos de modelo, outros objetos avançados são apenas list...
Gregor Thomas

Respostas:


109

Você precisa usar getpara obter o valor em vez do nome do caractere do objeto, conforme retornado por ls:

x <- 1L
typeof(ls())
[1] "character"
typeof(get(ls()))
[1] "integer"

Como alternativa, para o problema apresentado, você pode usar eapply:

eapply(.GlobalEnv,typeof)
$x
[1] "integer"

$a
[1] "double"

$b
[1] "character"

$c
[1] "list"

Trabalhe perfeitamente. Você sabe se há alguma penalidade de desempenho se get () for usado para encontrar o tipo de vários quadros de dados grandes que podem estar presentes na lista de variáveis ​​retornada por objects ()?

1
gettem seus críticos e imagino eapplyque seja mais rápido do que um loop interpretado. Mas só há uma maneira de descobrir ...
James,

17

Como obter o tipo de variável quando oculta sob um objeto global:

Tudo que você precisa está no manual R sobre tipos básicos: https://cran.r-project.org/doc/manuals/R-lang.html#Basic-types

Você object()precisa ser penetrado get(...)antes de poder ver o interior. Exemplo:

a <- 10
myGlobals <- objects()
for(i in myGlobals){
  typeof(i)         #prints character
  typeof(get(i))    #prints integer
}

Como obter o tipo de variável que você tem em R

A funçãotypeof R tem uma tendência para fornecer o tipo na profundidade máxima, por exemplo.

library(tibble)

#expression              notes                                  type
#----------------------- -------------------------------------- ----------
typeof(TRUE)             #a single boolean:                     logical
typeof(1L)               #a single numeric with L postfixed:    integer
typeof("foobar")         #A single string in double quotes:     character
typeof(1)                #a single numeric:                     double
typeof(list(5,6,7))      #a list of numeric:                    list
typeof(2i)               #an imaginary number                   complex

#So far so good, but those who wish to keep their sanity go no further
typeof(5 + 5L)           #double + integer is coerced:          double
typeof(c())              #an empty vector has no type:          NULL
typeof(!5)               #a bang before a double:               logical
typeof(Inf)              #infinity has a type:                  double
typeof(c(5,6,7))         #a vector containing only doubles:     double
typeof(c(c(TRUE)))       #a vector of vector of logicals:       logical
typeof(matrix(1:10))     #a matrix of doubles has a type:       list

#Strangeness ahead, there be dragons: step carefully:
typeof(substr("abc",2,2))#a string at index 2 which is 'b' is:  character
typeof(c(5L,6L,7L))      #a vector containing only integers:    integer
typeof(c(NA,NA,NA))      #a vector containing only NA:          logical
typeof(data.frame())     #a data.frame with nothing in it:      list
typeof(data.frame(c(3))) #a data.frame with a double in it:     list
typeof(c("foobar"))      #a vector containing only strings:     character
typeof(pi)               #builtin expression for pi:            double

#OK, I'm starting to get irritated, however, I am also longsuffering:
typeof(1.66)             #a single numeric with mantissa:       double
typeof(1.66L)            #a double with L postfixed             double
typeof(c("foobar"))      #a vector containing only strings:     character
typeof(c(5L, 6L))        #a vector containing only integers:    integer
typeof(c(1.5, 2.5))      #a vector containing only doubles:     double
typeof(c(1.5, 2.5))      #a vector containing only doubles:     double
typeof(c(TRUE, FALSE))   #a vector containing only logicals:    logical

#R is really cramping my style, killing my high, irritation is increasing:
typeof(factor())         #an empty factor has default type:     integer
typeof(factor(3.14))     #a factor containing doubles:          integer
typeof(factor(T, F))     #a factor containing logicals:         integer
typeof(Sys.Date())       #builtin R dates:                      double
typeof(hms::hms(3600))   #hour minute second timestamp          double
typeof(c(T, F))          #T and F are builtins:                 logical
typeof(1:10)             #a builtin sequence of numerics:       integer
typeof(NA)               #The builtin value not available:      logical

#The R coolaid punchbowl has been spiked: stay frosty and keep your head low:
typeof(c(list(T)))       #a vector of lists of logical:         list
typeof(list(c(T)))       #a list of vectors of logical:         list
typeof(c(T, 3.14))       #a vector of logicals and doubles:     double
typeof(c(3.14, "foo"))   #a vector of doubles and characters:   character
typeof(c("foo",list(T))) #a vector of strings and lists:        list
typeof(list("foo",c(T))) #a list of strings and vectors:        list
typeof(TRUE + 5L)        #a logical plus an integer:            integer
typeof(c(TRUE, 5L)[1])   #The true is coerced to 1              integer
typeof(c(c(2i), TRUE)[1])#logical coerced to complex:           complex
typeof(c(NaN, 'batman')) #NaN's in a vector don't dominate:     character
typeof(5 && 4)           #doubles are coerced by order of &&    logical
typeof(8 < 'foobar')     #string and double is coerced          logical
typeof(list(4, T)[[1]])  #a list retains type at every index:   double
typeof(list(4, T)[[2]])  #a list retains type at every index:   logical
typeof(2 ** 5)           #result of exponentiation              double
typeof(0E0)              #exponential lol notation              double
typeof(0x3fade)          #hexidecimal                           double
typeof(paste(3, '3'))    #paste promotes types to string        character
typeof(3 +)           #R pukes on unicode                    error
typeof(iconv("a", "latin1", "UTF-8")) #UTF-8 characters         character
typeof(5 == 5)           #result of a comparison:               logical

Como obter a classe de uma variável que você tem em R

A funçãoclass R tem uma tendência para fornecer o tipo de contêiner ou estrutura que encapsula seus tipos, por exemplo.

library(tibble)

#expression            notes                                    class
#--------------------- ---------------------------------------- ---------
class(matrix(1:10))     #a matrix of doubles has a class:       matrix
class(factor("hi"))     #factor of items is:                    factor
class(TRUE)             #a single boolean:                      logical
class(1L)               #a single numeric with L postfixed:     integer
class("foobar")         #A single string in double quotes:      character
class(1)                #a single numeric:                      numeric
class(list(5,6,7))      #a list of numeric:                     list
class(2i)               #an imaginary                           complex
class(data.frame())     #a data.frame with nothing in it:       data.frame
class(Sys.Date())       #builtin R dates:                       Date
class(sapply)           #a function is                          function
class(charToRaw("hi"))  #convert string to raw:                 raw
class(array("hi"))      #array of items is:                     array

#So far so good, but those who wish to keep their sanity go no further
class(5 + 5L)           #double + integer is coerced:          numeric
class(c())              #an empty vector has no class:         NULL
class(!5)               #a bang before a double:               logical
class(Inf)              #infinity has a class:                 numeric
class(c(5,6,7))         #a vector containing only doubles:     numeric
class(c(c(TRUE)))       #a vector of vector of logicals:       logical

#Strangeness ahead, there be dragons: step carefully:
class(substr("abc",2,2))#a string at index 2 which is 'b' is:  character
class(c(5L,6L,7L))      #a vector containing only integers:    integer
class(c(NA,NA,NA))      #a vector containing only NA:          logical
class(data.frame(c(3))) #a data.frame with a double in it:     data.frame
class(c("foobar"))      #a vector containing only strings:     character
class(pi)               #builtin expression for pi:            numeric

#OK, I'm starting to get irritated, however, I am also longsuffering:
class(1.66)             #a single numeric with mantissa:       numeric
class(1.66L)            #a double with L postfixed             numeric
class(c("foobar"))      #a vector containing only strings:     character
class(c(5L, 6L))        #a vector containing only integers:    integer
class(c(1.5, 2.5))      #a vector containing only doubles:     numeric
class(c(TRUE, FALSE))   #a vector containing only logicals:    logical

#R is really cramping my style, killing my high, irritation is increasing:
class(factor())       #an empty factor has default class:      factor
class(factor(3.14))   #a factor containing doubles:            factor
class(factor(T, F))   #a factor containing logicals:           factor
class(hms::hms(3600)) #hour minute second timestamp            hms difftime
class(c(T, F))        #T and F are builtins:                   logical
class(1:10)           #a builtin sequence of numerics:         integer
class(NA)             #The builtin value not available:        logical

#The R coolaid punchbowl has been spiked: stay frosty and keep your head low:
class(c(list(T)))       #a vector of lists of logical:         list
class(list(c(T)))       #a list of vectors of logical:         list
class(c(T, 3.14))       #a vector of logicals and doubles:     numeric
class(c(3.14, "foo"))   #a vector of doubles and characters:   character
class(c("foo",list(T))) #a vector of strings and lists:        list
class(list("foo",c(T))) #a list of strings and vectors:        list
class(TRUE + 5L)        #a logical plus an integer:            integer
class(c(TRUE, 5L)[1])   #The true is coerced to 1              integer
class(c(c(2i), TRUE)[1])#logical coerced to complex:           complex
class(c(NaN, 'batman')) #NaN's in a vector don't dominate:     character
class(5 && 4)           #doubles are coerced by order of &&    logical
class(8 < 'foobar')     #string and double is coerced          logical
class(list(4, T)[[1]])  #a list retains class at every index:  numeric
class(list(4, T)[[2]])  #a list retains class at every index:  logical
class(2 ** 5)           #result of exponentiation              numeric
class(0E0)              #exponential lol notation              numeric
class(0x3fade)          #hexidecimal                           numeric
class(paste(3, '3'))     #paste promotes class to string       character
class(3 +)           #R pukes on unicode                   error
class(iconv("a", "latin1", "UTF-8")) #UTF-8 characters         character
class(5 == 5)           #result of a comparison:               logical

Obtenha os dados storage.modeda sua variável

Quando uma variável R é gravada no disco, o layout dos dados muda mais uma vez e é chamado de dadosstorage.mode . A função storage.mode(...)revela esta informação de baixo nível: ver Mode, classe e tipo de objetos R . Você não precisa se preocupar com o modo de armazenamento de R, a menos que esteja tentando entender os atrasos causados ​​por conversões / coerções de ida e volta que ocorrem ao atribuir e ler dados de e para o disco.

Ideologia em torno do sistema de tipagem da tríade de R:

O sistema de digitação duck de R contém incerteza. Como analogia, considere um copo de cerâmica; ele pode ser usado para conter um líquido ou como um projétil, como uma bola de beisebol. A finalidade da xícara depende de suas propriedades disponíveis e da função que atua sobre ela. Essa fluidez de tipo permite maior margem de manobra para os programadores redirecionarem qualquer tipo de saída de uma função para outra, e R fará um grande esforço para tentar ler sua mente e fazer algo razoável.

A ideia é que, quando os programadores novatos escrevem programas R por meio do movimento browniano, como farão, eles tentam passar de a googah.blimflargpara a vehicle.subspaceresponder(...). Em vez de vomitar um erro de tipo, o programa R faz ginástica para transformar o tipo e então faz algo surpreendentemente útil. O programador novato posta o código em seu blog e diz "olhe para essa coisa incrível que fiz com 3 linhas de código R! Não tenho ideia de como ele sabe o que fazer, mas sabe!"


como identificar por exemplo ds <- c (3,4,5,5,3) - que "ds" é exatamente um vetor que contém o tipo numérico?
Max Usanin

1
Crie sua própria função R personalizada que você mantém em sua caixa de ferramentas que leva um parâmetro x. Dentro da função, use instruções if para verificar se typeof (x) é numérico e se a classe (x) é um vetor. Se sim, imprima a string: "x é exatamente um vetor com um tipo numérico". R não vai te ajudar neste departamento porque este sistema de tipagem de tríade tem complexidade infinita, a análise de tipo é impossível, assim que você definir todos os tipos, alguém definirá um novo. O sistema de digitação R é de longe o pior que já vi de qualquer idioma. É um incêndio de aterro.
Eric Leschinski

6

Você pode usar a classe (x) para verificar o tipo de variável. Se o requisito é verificar todos os tipos de variáveis ​​de um quadro de dados, sapply (x, classe) pode ser usado.


4
> mtcars %>% 
+     summarise_all(typeof) %>% 
+     gather
    key  value
1   mpg double
2   cyl double
3  disp double
4    hp double
5  drat double
6    wt double
7  qsec double
8    vs double
9    am double
10 gear double
11 carb double

Eu tento classe typeoffunciona, mas tudo falha.


1

Projetado para fazer essencialmente o inverso do que você queria, aqui está um dos meus brinquedos do kit de ferramentas:

 lstype<-function(type='closure'){
inlist<-ls(.GlobalEnv)
if (type=='function') type <-'closure'
typelist<-sapply(sapply(inlist,get),typeof)
return(names(typelist[typelist==type]))
}

0

lapply (your_dataframe, class) oferece algo como:

$ tikr [1] "fator"

$ Date [1] "Data"

$ Open [1] "numérico"

$ Alto [1] "numérico"

... etc.

Ao utilizar nosso site, você reconhece que leu e compreendeu nossa Política de Cookies e nossa Política de Privacidade.
Licensed under cc by-sa 3.0 with attribution required.