Используйте свой собственный код до вызова SelectActiveFrame () и после этого измените его на следующие строки:
frames[0] = new Bitmap(GG);
pictureBox1.Image = frame[0];
Это должно сделать трюк. Не забывайте, что вы удаляете созданные изображения.
Я думаю, что split
делает именно то, что вы хотите.
Обратите внимание, что X - это список кадров данных, как видно из str
:
X <- split(df, df$g)
str(X)
вы хотите, чтобы отдельный объект с именами группы g вы могли присваивать элементам X из split
объектам этих имен, хотя это кажется дополнительной работой, когда вы можете просто индексировать кадры данных из списка split
.
#I used lapply just to drop the third column g which is no longer needed.
Y <- lapply(seq_along(X), function(x) as.data.frame(X[[x]])[, 1:2])
#Assign the dataframes in the list Y to individual objects
A <- Y[[1]]
B <- Y[[2]]
C <- Y[[3]]
D <- Y[[4]]
E <- Y[[5]]
#Or use lapply with assign to assign each piece to an object all at once
lapply(seq_along(Y), function(x) {
assign(c("A", "B", "C", "D", "E")[x], Y[[x]], envir=.GlobalEnv)
}
)
Изменить Или даже лучше, чем использовать lapply
для назначения глобальной среде использования list2env
:
names(Y) <- c("A", "B", "C", "D", "E")
list2env(Y, envir = .GlobalEnv)
A
data.frame
, созданного с использованиемsplit
, на отдельные отдельные объекты, с которыми я сталкивался. Это именно то, что я искал. – smillig 15 March 2012 в 12:47