Объединение заголовков Dataframe в отдельный Dataframe [дубликат]
A NullReferenceException бросается, когда мы пытаемся получить доступ к свойствам нулевого объекта или когда значение строки становится пустым, и мы пытаемся получить доступ к строковым методам.
Например:
- При использовании метода string пустой строки:
string str = string.Empty; str.ToLower(); // throw null reference exception - Когда свойство нулевого объекта доступно:
Public Class Person { public string Name { get; set; } } Person objPerson; objPerson.Name /// throw Null refernce Exception
3 ответа
Я столкнулся с подобной проблемой, и я хотел бы предложить, что дополнительное решение, которое, на мой взгляд, может оказаться полезным. Решение довольно простое и использует пакет qpcR и предоставленную функцию cbind.na .
Пример
x <- 1:2
y <- 1:10
dta <- qpcR:::cbind.na(x, y)
Результаты
> head(dta)
x y
[1,] 1 1
[2,] 2 2
[3,] NA 3
[4,] NA 4
[5,] NA 5
[6,] NA 6
Боковые комментарии
После оригинального примера OP , имена столбцов могут быть легко удалены:
colnames(dta) <- NULL
операция приведет к полному желаемому результату:
> head(dta)
[,1] [,2]
[1,] 1 1
[2,] 2 2
[3,] NA 3
[4,] NA 4
[5,] NA 5
[6,] NA 6
-
1– fdetsch 13 February 2017 в 11:54
Трюк состоит в том, чтобы сделать все ваши входы одинаковой длины.
x <- 1:2
y <- 1:10
n <- max(length(x), length(y))
length(x) <- n
length(y) <- n
Если вы хотите, чтобы вы выводили массив, тогда cbind работает, но вы получаете дополнительные NA значения для выньте прямоугольник.
cbind(x, y)
x y
[1,] 1 1
[2,] 2 2
[3,] NA 3
[4,] NA 4
[5,] NA 5
[6,] NA 6
[7,] NA 7
[8,] NA 8
[9,] NA 9
[10,] NA 10
Чтобы избавиться от NA s, выход должен быть списком.
Map(function(...)
{
ans <- c(...)
ans[!is.na(ans)]
}, as.list(x), as.list(y)
)
[[1]]
[1] 1 1
[[2]]
[1] 2 2
[[3]]
[1] 3
[[4]]
[1] 4
[[5]]
[1] 5
[[6]]
[1] 6
[[7]]
[1] 7
[[8]]
[1] 8
[[9]]
[1] 9
[[10]]
[1] 10
EDIT: я поменял местами mapply(..., SIMPLIFY = FALSE) на Map.
-
1– lmichelbacher 11 November 2011 в 17:23
-
2– greg121 5 March 2013 в 03:18
-
3– Wet Feet 25 November 2013 в 09:56
-
4– Alex 28 May 2014 в 06:23
-
5– Richie Cotton 28 May 2014 в 09:08
Функция помощника ...
bind.pad <- function(l, side="r", len=max(sapply(l,length)))
{
if (side %in% c("b", "r")) {
out <- sapply(l, 'length<-', value=len)
} else {
out <- sapply(sapply(sapply(l, rev), 'length<-', value=len, simplify=F), rev)}
if (side %in% c("r", "l")) out <- t(out)
out
}
Примеры:
> l <- lapply(c(3,2,1,2,3),seq)
> lapply(c("t","l","b","r"), bind.pad, l=l, len=4)
[[1]]
[,1] [,2] [,3] [,4] [,5]
[1,] NA NA NA NA NA
[2,] 1 NA NA NA 1
[3,] 2 1 NA 1 2
[4,] 3 2 1 2 3
[[2]]
[,1] [,2] [,3] [,4]
[1,] NA 1 2 3
[2,] NA NA 1 2
[3,] NA NA NA 1
[4,] NA NA 1 2
[5,] NA 1 2 3
[[3]]
[,1] [,2] [,3] [,4] [,5]
[1,] 1 1 1 1 1
[2,] 2 2 NA 2 2
[3,] 3 NA NA NA 3
[4,] NA NA NA NA NA
[[4]]
[,1] [,2] [,3] [,4]
[1,] 1 2 3 NA
[2,] 1 2 NA NA
[3,] 1 NA NA NA
[4,] 1 2 NA NA
[5,] 1 2 3 NA