我恐怕再次有一个spplot()问题.
我希望我的spplot()中的颜色代表绝对值,而不是spplot默认情况下的自动值.
我通过从我想要绘制的变量中取出一个因子来实现这一点(使用命令cut()).这很好用,但颜色键看起来并不好看.
自己看看:
library(sp)
data(meuse.grid)
gridded(meuse.grid) = ~x+y
meuse.grid$random <- rnorm(nrow(meuse.grid), 7, 2)
meuse.grid$random[meuse.grid$random < 0] <- 0
meuse.grid$random[meuse.grid$random > 10] <- 10
# making a factor out of meuse.grid$ random to have absolute values plotted
meuse.grid$random <- cut(meuse.grid$random, seq(0, 10, 0.1))
spplot(meuse.grid, c("random"), col.regions = rainbow(100, start = 4/6, end = 1))
我怎样才能让color.key看起来很好看 - 我希望有更少的刻度和更少的标签(也许只有一个标签在color.key的每个极端)
先感谢您!
[编辑] 用绝对值来表达我的意思:想象一下我想要显示海拔高度的地图.Seaheight = 0(最小值)应始终显示为蓝色.Seaheight = 10(仅为示例,最大值)应始终显示为红色.即使地图上显示的区域没有海洋,也不应改变.我在我的示例中使用cut()命令实现了这一点.所以这部分工作正常.
这就是我的问题是 什么我不喜欢的是右侧的颜色描述.有100个刻度,每个刻度都有一个标签.我想要更少的刻度和更少的标签.
我用这个命令:
sed 's/;\([0-9]*\),\([0-9]*\);/;\1.\2;/g;s/;\(\r\?\)$/\1/' inputfile
根据我的需要更改巨大的csv文件(请参阅每行末尾的删除';').
现在碰巧在某些csv文件中有像20000500这样的"虚构日期"由于最后两个零(日期不可能)而无法导入到SQL.
在这种情况下,如何编辑我的sed-command以始终将最后两位数字更改为01(我的意思是只有它们是00)？
我试过了
sed 's/;\([0-9]*\),\([0-9]*\);/;\1.\2;/g;s/;\([0-9]{6}\)00;/;\101;/g;s/;\(\r\?\)$/\1/' inputfile
但这不起作用.
当我只知道指向数组的指针时,有没有办法获得数组的长度？
请参阅以下示例
int testInt[3];
testInt[0] = 0;
testInt[1] = 1;
testInt[2] = 1;
int* point;
point = testInt;
Serial.println(sizeof(testInt) / sizeof(int)); // returns 3
Serial.println(sizeof(point) / sizeof(int)); // returns 1
(这是来自Arduino Code的一个小贴士 - 对不起,我不"说"真正的C).
我有两个约会
begin <- as.Date("2007-05-20")
end <- as.Date("2010-06-13")
我如何计算每年的天数？
输出应该看起来像这样
year days
2007 226
2008 366
2009 365
2010 164
我开始使用git进行软件开发。
我在github上有一个项目。该项目还涉及一些存储在专用设置文件中的用户设置。
在 github 上，设置应该为空（像这样）
### Settings:
## Your name
$name = "";
## Your email adress
$email = "";
## and so on
但是，我的计算机（或服务器）上也运行了该项目。我的个人版本的项目应该已填写所有设置。
我想为此开设两个分支机构。个人分支应该包含我的所有设置。master分支应该是我开发软件并上传到github的分支。
我想时不时地将主分支合并到个人分支中，以使我的系统保持最新。但是，每当我尝试合并分支时，我的个人设置都会丢失。
有没有办法做到这一点，或者我只是做错了什么（什么）？
我尝试在rails4中创建一对多连接.但是,虽然我没有收到错误,但不存储嵌套属性.
我究竟做错了什么？
站的模型
class Station < ActiveRecord::Base
has_many :adresses
accepts_nested_attributes_for :adresses
end
ADRESS-型号
class Adress < ActiveRecord::Base
belongs_to :station
end
Station-Controller 类StationsController <ApplicationController
def new
@station = Station.new
@station.adresses.build
end
def create
@station = Station.new(station_params)
@station.save
redirect_to @station
end
def index
@stations = Station.all
end
private
def station_params
params.require(:station).permit(:name, adresses_attributes: [ :url ])
end
end
站:new.html.erb
<%= form_for :station, url: stations_path do |station| %>
<p>
<%= station.label :name %><br />
<%= station.text_field :name %>
</p>
<%= station.fields_for :adresses do |adress| …ruby-on-rails one-to-many nested-forms nested-attributes ruby-on-rails-4
忍不住尝试重新启动的RailsForum并在此处交叉发布此问题。
我有以下表单对象（在 Rails 4 中）
class StationForm
include Virtus
include ActiveModel::Model
# I think this is unnecessary
# extend ActiveModel::Naming
# include ActiveModel::Conversion
# include ActiveModel::Validations
# Station
attr_reader :station
attribute :station_name, String
attribute :station_description, String
# Address
attr_reader :address
attribute :address_url, String
attribute :address_priority, Integer
attribute :address_is_active, Boolean
def persisted?
false
end
def save
if valid?
persist
true
else
false
end
end
private
def persist
@station = Station.create(name: station_name, description: station_description)
@address = …我有一个模特
# models.py
from django.db import models
class Foo(models.Model):
# ...
color = models.CharField(max_length=7, null=True)
color应该存储六角颜色.而不是input type="text"我想使用html5输入类型"颜色".
我通过设置以下表单对象尝试了这个:
# forms.py
from django.forms import ModelForm, CharField
class FooForm(ModelForm):
class Meta:
model = Foo
widgets = {
'color': CharField(attrs={'type': 'color'}),
}
但是,这给了我以下错误消息
init()得到了一个意外的关键字参数'attrs'
我做错了什么,我该怎么做？
这个
Dim WB As Workbook
Set WB = Workbooks.Open("foo\bar.xlsx", , True)
Debug.Print (WB.Names("named_cell").Value)
WB.Close (False)
回报
='Sheet'!$C$377
而不是单元格中的值C377.
我怎样才能收到细胞的价值呢？
我导入了一个Excel文件并获得了这样的数据框
structure(list(A = structure(1:3, .Label = c("1.100", "2.300",
"5.400"), class = "factor"), B = structure(c(3L, 2L, 1L), .Label = c("1.000.000",
"500", "7.800"), class = "factor"), C = structure(1:3, .Label = c("200",
"3.100", "4.500"), class = "factor")), .Names = c("A", "B", "C"
), row.names = c(NA, -3L), class = "data.frame")
我现在想这些转换chars到numeric甚至integer.但是,点字符(.)不是小数点,而是"千位分隔符"(它是德语).
如何正确转换数据框？
我试过这个:
df2 <- as.data.frame(apply(df1, 2, gsub, pattern = "([0-9])\\.([0-9])", replacement= "\\1\\2"))
df3 <- as.data.frame(data.matrix(df2))
但是,apply似乎将每列转换为一系列因子.我可以阻止apply这样做吗？