Warning: file_get_contents(/data/phpspider/zhask/data//catemap/4/r/69.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
R 动画错误:找不到函数‘;的继承方法;制作动画’;签字‘&引用;gganim“’;_R_Gganimate - Fatal编程技术网

R 动画错误:找不到函数‘;的继承方法;制作动画’;签字‘&引用;gganim“’;

R 动画错误:找不到函数‘;的继承方法;制作动画’;签字‘&引用;gganim“’;,r,gganimate,R,Gganimate,我想用gganimate制作一个动画绘图。当我尝试渲染动画时,会显示以下错误消息: Error in (function (classes, fdef, mtable) : unable to find an inherited method for function ‘animate’ for signature ‘"gganim"’ 这就是我试图复制的代码。我正在使用R3.6.0 library(gganimate) library(magick) library(dplyr)

我想用
gganimate
制作一个动画绘图。当我尝试渲染动画时,会显示以下错误消息:

Error in (function (classes, fdef, mtable)  : 
  unable to find an inherited method for function ‘animate’ for signature ‘"gganim"’ 
这就是我试图复制的代码。我正在使用R3.6.0

library(gganimate)
library(magick)
library(dplyr)
library(animation)
library(tidyverse)
library(patchwork)
library(animation)
library(sp)
library(raster)
library(rgeos)
library(gifski)

REPD <- readr::read_tsv(RCurl::getURL("https://gist.githubusercontent.com/dr-harper/abc79ce4ec63644324aa2e6134ddf1ac/raw/49f8a5d6c5c41395af46428007048be7301b9f7b/REPD.csv"))

planning_summary <- read.table(text = "
'Status'                        'Status Summary'
'Application Approved'        'Approved'
'Application Refused'           'Refused/Abandoned'
'Application Submitted'       'Submitted'
'Application Withdrawn'       'Refused/Abandoned'
'Connection Applied For'        'Submitted'
'No Application Made'           'Refused/Abandoned'
'No Application'              'Required Approved'
'Abandoned'                   'Refused/Abandoned'
'Awaiting Construction'       'Approved'
'Decommissioned'                'Approved'
'Operational'                   'Approved'
'Planning Permission Expired'   'Approved'
'Under Construction'            'Approved'
", header = TRUE, stringsAsFactors = FALSE)


REPD <-
  REPD %>%
  merge(planning_summary, by.x = "Development Status (short)", by.y = "Status") %>%
  mutate(date = lubridate::dmy(`Planning Application Submitted`),
         year = lubridate::year(date),
         `Installed Capacity (MWelec)` = as.numeric(`Installed Capacity (MWelec)`))

# Obtener fronteras:

UK <-  raster::getData('GADM', country='GBR', level = 1) %>%
  sp::spTransform(CRSobj = CRS("+init=epsg:27700")) %>%
  gSimplify(tol=1000, topologyPreserve=TRUE) %>%
  fortify()


REPD_tech <- 
  REPD %>%
  filter(`Status.Summary` == "Approved")
# build GIF
p <- 
  ggplot() +
  geom_polygon(data=UK, aes(long, lat, group = group), fill = "#528076") +
  geom_point(data = REPD_tech, aes(x = `X-coordinate`, y = `Y-coordinate`, fill = `Technology Type`),
             size = 5, shape = 21, alpha = 0.7) +

  # gganimate parts
  transition_states(`Technology Type`, transition_length = 2, state_length = 20) +
  enter_fade() +
  exit_fade() +
  # Styling
  coord_equal(xlim = c(-75000, 825000), ylim = c(0, 1200000)) +
  theme(panel.grid.major = element_blank(),
        panel.grid.minor = element_blank(),
        axis.text = element_blank(),
        axis.title = element_blank(),
        axis.ticks = element_blank(),
        panel.background = element_rect(fill = "grey99", colour = "grey80"),
        plot.title = element_text(hjust = 0, size = 16, vjust=0))
animate(p, length = 15, width = 700, height = 400)
库(gganimate)
图书馆(magick)
图书馆(dplyr)
图书馆(动画)
图书馆(tidyverse)
图书馆(拼凑)
图书馆(动画)
图书馆(sp)
图书馆(光栅)
图书馆(rgeos)
图书馆(吉夫斯基)
报告%
gSimplify(tol=1000,TopologyPrefer=TRUE)%>%
加强
报告技术%
筛选器(`Status.Summary`==“已批准”)
#生成GIF

p您加载了很多包,这些包还可能有一个覆盖gganimate的animate函数

试一试


您已经加载了很多包,这些包还可能有一个覆盖gganimate的animate函数

试一试


是否使用最新的
gganimate
?是否使用最新的
gganimate
gganimate::animate(p, length = 15, width = 700, height = 400)