Error in .standalone_types_check_dot_call(ffi_standalone_check_number_1.0.7, : object ‘ffi_stand

文章描述了一位用户在使用R语言和ggplot2库绘制火山图时遇到的错误,该错误提示对象ffi_standalone_check_number_1.0.7未找到。用户通过按照2023年3月21日简书上的一篇文章中提供的方法,重新安装tidyverse包解决了问题。代码示例包括数据加载、差异分析和火山图的创建过程。

用R语言画火山图时报错

Error in .standalone_types_check_dot_call(ffi_standalone_check_number_1.0.7,  : 
  object 'ffi_standalone_check_number_1.0.7' not found

按照2023-03-21 R语言GGPLOT2报错 ffi_standalone_check_number_1.0.7 not found - 简书 (jianshu.com)上的方法重装tidyverse后成功

原代码:

####TCGA差异分析火山图####
setwd("C:\\Users\\86189\\Desktop\\Xena")
library(tidyverse)
exp <- read.table("LIHC_fpkm_mRNA_all.txt",sep = "\t",row.names = 1,check.names = F,stringsAsFactors = F,header = T)
DEG <- as.data.frame(res)%>% 
  arrange(padj) %>% 
  dplyr::filter(abs(log2FoldChange) > 0, padj < 0.05)

logFC_cutoff <- 1
type1 = (DEG$padj < 0.05)&(DEG$log2FoldChange < -logFC_cutoff)
type2 = (DEG$padj < 0.05)&(DEG$log2FoldChange > logFC_cutoff)
DEG$change = ifelse(type1,"DOWN",ifelse(type2,"UP","NOT"))
table(DEG$change)

#remove.packages("rlang")
#remove.packages("tidyverse")
#remove.packages("ggplot2")

#install.packages("tidyverse")
# tidyverse自动安装依赖的rlang、ggplot2

#install.packages("ggpubr")
#install.packages("ggthemes")
library(ggpubr)
library(ggthemes)

DEG$logP <- -log10(DEG$padj)
ggscatter(DEG,
          x = "log2FoldChange", y = "logP") +
  theme_base()

Error in .standalone_types_check_dot_call(ffi_standalone_check_number_1.0.7,  : 
  object 'ffi_standalone_check_number_1.0.7' not found

#增加基因上下调信息
ggscatter(DEG, x = "log2FoldChange", y = "logP",
          color = "change",
          palette = c("blue", "black", "red"),
          size = 1) +
  theme_base()

#添加分界线
ggscatter(DEG, x = "log2FoldChange", y = "logP", xlab = "log2FoldChange",
          ylab = "-log10(Adjust P-value)",
          color = "change",
          palette = c("blue", "black", "red"),
          size = 1) +
  theme_base() +
  geom_hline(yintercept = -log10(0.05), linetype = "dashed") +
  geom_vline(xintercept = c(-1, 1), linetype = "dashed")
dev.off()
 

评论 1
成就一亿技术人!
拼手气红包6.0元
还能输入1000个字符
 
红包 添加红包
表情包 插入表情
 条评论被折叠 查看
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值