无法绘制 svm 图。 terms.default(x) 中的错误:没有术语组件或属性

2024-01-10

我可以在我的数据集上使用 R 包“e1071”运行 svm,但我无法使用任何两个预测变量来绘制图表。即使在谷歌搜索了很多之后我也无法找到它的解决方案。请专家帮我解决这个问题:

我有一个具有以下属性的数据集:

> dim(fulldata)
[1]  153 2915

> str(fulldata)
'data.frame':   153 obs. of  2915 variables:
$ label : Factor w/ 2 levels "1","2": 1 1 1 1 1 1 1 1 1 1 ...
$ V12   : num  1.372 -1.541 0.201 1.06 1.815 ...
$ V14   : num  0.052 -1.442 1.022 -0.35 0.192 ...
$ V17   : num  0.885 -2.569 0.326 1.574 1.394 ...
$ V37   : num  0.356 2.884 -0.452 0.067 0.282 ...
$ V51   : num  -0.018 -1.71 1.084 -0.21 0.091 ...
$ V66   : num  0.178 0.264 -3.189 0.451 0.831 ...
$ V67   : num  0.693 -0.698 -0.335 0.076 1.016 ...
$ V69   : num  -0.383 -0.316 1.332 -0.643 0.195 ...
$ V70   : num  0.203 0.196 -0.83 0.024 0.257 -0.33 -0.731 0.668 0.39 -0.12 ...

我可以使用 e1071 包运行 svm,但无法使用任何两个预测变量进行绘图

svm(y=fulldata[1], x=fulldata[-1], 概率=T,na.rm=T, 内核=“线性”)

Call:
svm.default(x = fulldata[, -1], y = fulldata[, 1], kernel = "linear", 
probability = T, na.rm = T)


Parameters:
SVM-Type:  C-classification 
SVM-Kernel:  linear 
      cost:  1 
     gamma:  0.0003431709 

Number of Support Vectors:  60

BUT

> plot(svm(y=fulldata[,1], x=fulldata[,-1], probability=T,na.rm=T, 
kernel="linear"),fulldata,fulldata[,2]~fulldata[,3])

Error in terms.default(x) : no terms component nor attribute

这是有关我的会话的信息

会话信息() R版本3.0.1 (2013-05-16) 平台:x86_64-unknown-linux-gnu(64位)

locale:
 [1] LC_CTYPE=en_IN       LC_NUMERIC=C         LC_TIME=en_IN       
 [4] LC_COLLATE=en_IN     LC_MONETARY=en_IN    LC_MESSAGES=en_IN   
 [7] LC_PAPER=C           LC_NAME=C            LC_ADDRESS=C        
 [10] LC_TELEPHONE=C       LC_MEASUREMENT=en_IN LC_IDENTIFICATION=C 

attached base packages:
[1] stats     graphics  grDevices utils     datasets  methods   base     

other attached packages:
[1] MASS_7.3-26 e1071_1.6-3

loaded via a namespace (and not attached):
[1] class_7.3-7 tcltk_3.0.1 tools_3.0.1

from ?formula

模型拟合通过例如 lm 和 glm 函数在紧凑的符号中指定 形式。 ~ 运算符是形成此类模型的基础。 y 形式的表达式 ~ 模型被解释为响应 y 由线性模型建模的规范 由模型以符号方式指定的预测器。这样的模型由一系列由 + 运算符分隔的项组成。这些术语本身由变量和因子组成 names.

使用带有变量名称的公式可以解决这个问题...下面是一个假例子

library(e1071)
fulldata <- data.frame("label" = gl(2,150),
                       "V1" = rnorm(300),
                       "V2" = rnorm(300),
                       "V3" = rnorm(300),
                       "V4" = rnorm(300),
                       "V5" = rnorm(300),
                       "V6" = rnorm(300),
                       "V7" = rnorm(300),
                       "V8" = rnorm(300),
                       "V9" = rnorm(300),
               "V10" = rnorm(300))

str(fulldata)

my.svm <- svm(label ~ .,
              probability=TRUE,
              na.rm=TRUE,
              kernel="linear",
              data = fulldata)
my.svm
plot(my.svm,
     data = fulldata,
     formula = V1 ~ V2)
本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系:hwhale#tublm.com(使用前将#替换为@)

无法绘制 svm 图。 terms.default(x) 中的错误:没有术语组件或属性 的相关文章

  • R foreach问题(某些进程返回NULL)

    我遇到了问题foreach我正在 R 中使用的程序的一部分 该程序用于运行不同参数的模拟 然后将结果返回到单个列表 然后用于生成报告 当并非所有分配的模拟运行都在报告上实际可见时 就会出现问题 从各方面来看 似乎只有分配的运行的一个子集实际
  • R - Plm 和 lm - 固定效应

    我有一个平衡面板数据集 df 本质上由三个变量组成 A B and Y 对于一堆独特识别的区域来说 它会随着时间的推移而变化 我想运行一个回归 其中包括区域 下面等式中的区域 和时间 年份 固定效应 如果我没记错的话 我可以通过不同的方式来
  • 使用 purrr 迭代替换数据帧列中的字符串

    我想用purrr使用以下命令在数据框列上迭代运行多个字符串替换gsub 功能 这是示例数据框 df lt data frame Year 2019 Text c rep a aa 5 rep a bb 3 rep a cc 2 gt df
  • 使用 pracma::findpeaks 识别持续峰值

    我的语法有问题peakpat内的选项findpeaks内的函数pramcaR 包 v 2 1 1 我使用的是 R 3 4 3 x64 Windows 我希望该函数能够识别可能有两个重复值的峰值 并且我相信该选项peakpat这就是我能做到的
  • 多功能测试仪替代 system.time

    我已经看到 我认为是这样 使用了类似于 system time 的函数 它可以同时评估多个函数的时间并输出一个输出 我不记得它是什么 并且用我正在使用的术语进行互联网搜索并没有得到我想要的响应 有人知道我正在谈论的功能的名称 位置吗 你想要
  • 通过间接引用列来修改数据框中的某些值

    我正在整理一些数据 我们将失败的数据分类到垃圾箱中 并按批次计算每个分类箱的有限产量 我有一个描述排序箱的元表 这些行按升序测试顺序排列 一些排序标签带有非语法名称 sort tbl lt tibble tribble weight lab
  • 时间戳半小时窗口内字段的平均值

    我的数据框有列名Timestamp es看起来像 Timestamp es 2015 04 01 09 07 42 31 2015 04 01 09 08 01 29 5 2015 04 01 09 15 03 18 5 2015 04 0
  • 将每列的值乘以 R 中另一个 data.frame 中的权重

    我有两个data frames df and weights 代码如下 df看起来像这样 id a b d EE f 1 this 0 23421153 0 02324956 0 5457353 0 73068586 0 5642554 2
  • 在 R 中使用 lapply 绘制多个数据帧

    我正在尝试使用 lapply 函数绘制多个数据帧 每个数据帧一个图 但是尽管有关此主题的所有帖子我都找不到答案 因为我不断收到错误 图的输出列表为空 我的数据结构如下 df1 lt mtcars gt group by cyl gt tal
  • 更改闪亮 R 中的默认浏览器

    我在 RStudio 中使用 01 hello 虽然在 IE 中默认打开程序时它不会显示直方图 但即使在 Chrome 中 滑块也不起作用 我无法滑动条形图并看到直方图中的变化 如何更改 R 中的默认浏览器 以便闪亮启动 Chrome 而不
  • 相当于 min() 的 rowMeans()

    我在 R 邮件列表上多次看到这个问题 但仍然找不到满意的答案 假设我有一个矩阵m m lt matrix rnorm 10000000 ncol 10 我可以通过以下方式获得每行的平均值 system time rowMeans m use
  • 如何在 R 中匹配多个 ggplot2 图中的调色板?

    自从被问到这个问题以来已经有一段时间了 但我知道一个事实 我很快就会提取新数据 我想弄清楚如何用这种技术来绘制它 看起来评论和答案中的人知道如何做到这一点 但我无法完全弄清楚所给我的内容 还有人想尝试一下吗 我正在尝试使用具有多个级别的因子
  • 所有 x 轴标签未以 45 度显示

    I m having the code as like below But I m not getting all the x axis labels and it is not displaying in 45 degree when I
  • R:如何获取该月的周数

    我是 R 新手 我想要该日期所属月份的周数 通过使用以下代码 gt CurrentDate lt Sys Date gt Week Number lt format CurrentDate format U gt Week Number 3
  • 投资决策:R中的NPV、IRR、PB计算

    我正在尝试计算不同数量项目的净现值 NPV 内部收益率 IRR 和投资回收期 PB 时间 以评估哪个投资项目提供最佳回报 到目前为止 我可以为每个项目单独计算几行代码 但我想做的是 编写一个函数 它接受一个包含许多不同项目及其现金流的矩阵
  • 闭包作为数据合并习惯的解决方案

    我正在尝试解决闭包问题 而且我think我发现了一个案例 他们可能会有所帮助 我有以下几部分需要处理 一组正则表达式 旨在清理状态名称 位于函数中 具有州名称 上述函数创建的标准化形式 和州 ID 代码的 data frame 用于链接两者
  • 在 ifelse() 语句内部和外部运行一行时的不同输出

    我正在尝试运行一个简单的命令 但不知道为什么在内部和外部运行它时输出不同ifelse 功能 函数条件评估为FALSE 所以输出应该完全相同 但是 单独运行时 输出为0 0 1 1 0 1 0 1 NA 根据需要 但是从ifelse 函数 输
  • 如何将plot中的单变量列表图表转换为ggplot2格式?

    我正在搜索 但仍然找不到一个非常简单的问题的答案 我们如何使用 R 中的 ggplot2 生成一个变量的简单线图 我正在分析时间序列数据 并且想要对图表进行更复杂的操作 我认为如果我使用 ggplot2 代替会更好plot It works
  • 线性判别分析图

    如何将样本 ID 行号 作为标签添加到此 LDA 图中的每个点 library MASS ldaobject lt lda Species data iris plot ldaobject panel function x y points
  • 如何使用 dplyr 独立过滤每列的行

    我有以下内容 library tidyverse df lt tibble tribble gene colB colC a 1 2 b 2 3 c 3 4 d 1 1 df gt A tibble 4 x 3 gt gene colB c

随机推荐

  • 如何将 Spark 数据帧转换为 Polars 数据帧?

    我想知道如何将 Spark 数据帧转换为 Polars 数据帧 假设我在 PySpark 上有这段代码 df spark sql select from tmp 我可以使用以下命令轻松地将其转换为 pandas 数据框 toPandas 极
  • 使用ionic 4,尝试在应用程序使用硬件后退按钮按下事件关闭之前向用户发出退出警报消息

    在我的最初阶段 我试图给出 退出应用程序 是 否 当用户从登录页面或主页 登录后 按下硬件后退按钮时发出警报 我面临的问题是 当我按下后退按钮时 退出警报消息会出现在每个页面上 而不仅仅是在登录或主页上 此外 无论我是否按警报框中的 否 选
  • 如何删除除包含 TRUNCATE - INSERT 的行之外的所有行

    我创建了一个脚本 将所有 PL SQL 文件格式化为一个具有值对的简单文件 它很难解释 我认为如果您只查看该文件会更容易 PROCEDURE VALIDA CAMBIO GPR TRUNCATE TMP MOD PVA INSERT TMP
  • Cocos2d 2.0 - 左下角有 3 个数字

    我的 Cocos2D 2 0 项目屏幕左下角有 3 个数字 82 0 016 60 0 60 可能是 FPS 那么其他两个呢 我记得以前的 Cocos 版本只有 FPS 数字 有什么线索吗 谢谢 82 lt number of draw c
  • 将平面 Python 字典转换为字典列表

    我有一本以下格式的字典 我不知道我将收到的行数或项目数 line 0 item1 a line 0 item2 34 line 1 item1 sd line 1 item2 2 line 1 item3 fg line 2 item1 f
  • 带 twitter bootstrap 的全宽布局

    我正在尝试完成类似于此的布局 http dribbble com shots 829195 Slate attachments 86422 http dribbble com shots 829195 Slate attachments 8
  • BI 与 Django?

    有没有办法使用 Django 开发 Bi 商业智能 解决方案 因此 应该可以使用多个数据源来定义模型 有人用过 Django 体验过 BI 吗 怎么可能行得通呢 我不确定您对 BI 的定义是什么 也不知道为什么您认为 BI 解决方案需要多个
  • 来自具有可变帧速率的图像的视频

    我想从静止图像创建视频 但我没有使用静态 FPS 而是为每个图像都有一个特定的时间戳 图像在时间上的间隔并不完全均匀 我该怎么做呢 我当前的代码 具有静态 FPS 如下 import cv2 import os image folder U
  • 绘制超平面线性SVM python

    我正在尝试绘制使用 LinearSVC 和 sklearn 训练的模型的超平面 请注意 我正在使用自然语言 在拟合模型之前 我使用 CountVectorizer 和 TfidfTransformer 提取了特征 这里是分类器 from s
  • 限制每分钟、每个方法、每个 IP 对 WCF 服务的调用

    我想限制任何不同 IP 对 WCF 服务上特定方法的调用次数x按时间范围调用y 例如 如果 IP10 0 1 1调用方法register在某一分钟内超过 5 次 称之为分钟 x 当它尝试在那分钟内第六次调用该方法时 它会被阻塞 直到分钟 x
  • 如何检查内部服务是否已在运行相同的服务?

    我有一项被许多应用程序使用的服务 开发人员只需启动该服务即可完成其工作 如果 AppA AppB 和 AppC 启动服务 我会收到重复的服务 重复并没有那么糟糕 事实上应该有重复的服务 但是当且仅当没有重复的服务已经在做相同的工作时 服务才
  • 绘图未通过闪亮仪表板侧边栏上的输入进行渲染

    几天来我一直在开发一个应用程序shiny图书馆 现在我想用shinydashboard包裹 问题是 当我在侧边栏中设置输入时 我的绘图没有显示 渲染 在我希望显示的选项卡中 仅使用闪亮的包 我设置了以下代码 没有菜单侧边栏 如闪亮仪表板中所
  • html5验证表单标签

    标签元素的 for 属性必须引用表单控件 老实说 我不明白标记有什么问题 我浏览了很多 W3 的网站 但就是找不到 Help HTML
  • WebGL:异步操作?

    我想知道是否有任何可以利用的 WebGL 异步调用 我查看了 Spec v1 和 Spec v2 他们没有提及任何内容 在 V2 中 有一个 WebGL 查询机制 我认为这不是我正在寻找的 在网络上搜索并没有得到任何明确的信息 有这个例子
  • Angular 2 参数更改时重新加载路线

    我目前正在编写我的第一个 Angular 2 应用程序 我有一个概述组件 它具有以下简单模板 div class row div class col lg 8 div div
  • SpriteKit:即使设备上的帧率为 60 fps,运动也会不稳定

    我正在制作一个无限滚动游戏 并在其中生成精灵update 基于计数器的函数如下所示 void update spawnCar 1 if spawnCar gt 500 spawnCar 0 self spawnCar Inside spaw
  • @grant 指令并通过页面检测用户脚本

    我的问题有两个方面 首先 有人可以解释一下使用的优点和缺点是什么 grant none在坦普尔猴子 第二 哪个 grant我应该使用哪些值来防止网页检测到脚本 grant https www tampermonkey net documen
  • rabbitmq 使用线程与 pika

    我正在尝试使用rabbitmq 获得一个基本的队列系统 但是当我尝试使用线程时 它似乎只运行1 个线程 my code import pika import threading rabbit url amqp user email prot
  • 异步委托与线程

    用异步委托 回调 替换线程 不是线程池线程 我的场景 为每个客户端生成一个 Thread del beginInvoke 据我说 Reasons 需要通过回调通知 在回调中再次调用委托 避免线程开销 委托使用线程池线程 传递参数 避免转换为
  • 无法绘制 svm 图。 terms.default(x) 中的错误:没有术语组件或属性

    我可以在我的数据集上使用 R 包 e1071 运行 svm 但我无法使用任何两个预测变量来绘制图表 即使在谷歌搜索了很多之后我也无法找到它的解决方案 请专家帮我解决这个问题 我有一个具有以下属性的数据集 gt dim fulldata 1