r - ベクトルが埋め込まれた Psych 関数 describe() は、Var でエラーを返します

Question

関数をループdescribe()で使用できるように、他のベクトルに埋め込まれたパス ベクトルを使用したいと考えています。for学生グループの成績を含む次のデータがあります。130 人の学生が分類されている 5 つの異なるグループの記述統計を取得したいので、グループごとに 1 つのサブセットを作成します。

pr3 <- read.csv("data.csv", head = T, sep = ";")

G1A <- subset(pr3, group == "1A")
G1B<- subset(pr3, group == "1B")

次のように呼び出すとdescribe()、完全に機能します。

describe(G1A)

ただし、サブセットをベクトルにグループ化し、tonamesのインデックスを渡すことは機能しません。namesdescribe()

names <- c(G1A, G1B)
describe(names[1])

Error in var(if (is.vector(x) || is.factor(x)) x else as.double(x), na.rm = na.rm) : 
  is.atomic(x) is not TRUE
In addition: Warning message:
In mean.default(x, na.rm = na.rm) :
  argument is not numeric or logical: returning NA
>

どうすればそれを機能させることができますか？