Получить тип всех переменных


118

В R я хотел бы получить список глобальных переменных в конце моего скрипта и перебрать их. Вот мой код

#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'
}

Моя проблема в том, что typeof(i)всегда возвращается, characterдаже если переменная, aа cне символьные переменные. Как я могу получить исходный тип переменной внутри цикла for?


Примечание для людей, читающих этот вопрос: typeof()дает очень общую информацию о том, как объект хранится в памяти. Для большинства случаев использования, если вы хотите узнать полезную информацию о переменной x, вы получите более полезную информацию class(x), is(x)или str(x)(в порядке , насколько подробно они предоставляют). См . Ответ Эрика ниже, где приведены примеры того, что typeof()вам говорит: факторы есть integer; списки, фреймы данных, объекты модели, другие расширенные объекты - это просто list...
Грегор Томас

Ответы:


109

Вам нужно использовать getдля получения значения, а не символьного имени объекта, возвращаемого ls:

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

В качестве альтернативы, для представленной проблемы вы можете использовать eapply:

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

$a
[1] "double"

$b
[1] "character"

$c
[1] "list"

Работайте отлично. Знаете ли вы, есть ли какое-либо снижение производительности, если get () используется для поиска типа нескольких больших фреймов данных, которые могут присутствовать в списке переменных, возвращаемом объектами ()?

1
getесть свои критики, и я полагаю, eapplyэто будет быстрее, чем интерпретируемый цикл. Но есть только один способ узнать ...
Джеймс

17

Как получить тип переменной, скрытой под глобальным объектом:

Все, что вам нужно, есть в руководстве R по основным типам: https://cran.r-project.org/doc/manuals/R-lang.html#Basic-types

Вам object()нужно проникнуться, get(...)прежде чем вы сможете заглянуть внутрь. Пример:

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

Как получить тип переменной в R

Например, функцияtypeof R имеет смещение, чтобы дать вам тип на максимальной глубине.

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

Как получить класс переменной в R

R функцияclass имеет уклон , чтобы дать вам тип контейнер или структуры герметизирующей вашим типов, например.

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

Получите данные storage.modeвашей переменной

Когда переменная R записывается на диск, структура данных снова меняется и называется даннымиstorage.mode . Функция storage.mode(...)показывает эту информацию низкого уровня: см режим, класс и тип объектов R . Вам не нужно беспокоиться о режиме storage.mode в R, если только вы не пытаетесь понять задержки, вызванные приведениями / принуждениями туда и обратно, которые происходят при назначении и чтении данных на диск и с диска.

Идеология системы типизации триад R:

В системе набора текста R утиный текст есть неопределенность. В качестве аналогии рассмотрим керамическую чашку, ее можно использовать для хранения жидкости или использовать в качестве снаряда, как бейсбольный мяч. Назначение чашки зависит от ее доступных свойств и выполняемой функции. Такая гибкость типов дает программистам большую свободу действий при перенаправлении любого вида вывода из одной функции в другую, и R пойдет на все, чтобы попытаться прочитать ваши мысли и сделать что-то разумное.

Идея состоит в том, что когда начинающие программисты пишут программы на R с помощью броуновского движения, они пытаются передать a googah.blimflargв vehicle.subspaceresponder(...). Вместо того, чтобы выдавать ошибку типа, программа R выполняет гимнастику, чтобы преобразовать тип, а затем делает что-то удивительно полезное. Новичок-программист публикует код в своем блоге и говорит: «Посмотрите на эту потрясающую вещь, которую я сделал с 3 строками кода R! Я понятия не имею, откуда он знает, что делать, но он знает!»


как определить, например, ds <- c (3,4,5,5,3) - что "ds" - это точно вектор с числовым типом?
Макс Усанин

1
Создайте свою собственную пользовательскую функцию R, которую вы храните в своем ящике инструментов, которая принимает параметр x. Внутри функции используйте операторы if, чтобы проверить, является ли typeof (x) числовым, а класс (x) вектором. Если это так, выведите строку: «x - это в точности вектор с числовым типом». R не поможет вам в этом отделе, потому что эта система триадной типизации имеет бесконечную сложность, анализ типов невозможен, как только вы определите все типы, кто-то определит новый. Система набора текста R на сегодняшний день является худшей из всех, что я когда-либо видел. Это пожар на свалке.
Эрик Лещинский

6

Вы можете использовать class (x) для проверки типа переменной. Если требуется проверить все типы переменных кадра данных, можно использовать sapply (x, class).


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

Я пытаюсь classи работаю typeof, но ничего не получается.


1

Вот одна из моих игрушек из набора инструментов, созданная для того, чтобы делать противоположное тому, что вы хотели:

 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) дает что-то вроде:

$ tikr [1] "фактор"

$ Date [1] "Дата"

$ Open [1] "числовой"

$ High [1] "числовой"

... и т.д.

Используя наш сайт, вы подтверждаете, что прочитали и поняли нашу Политику в отношении файлов cookie и Политику конфиденциальности.
Licensed under cc by-sa 3.0 with attribution required.