Question

我有一个带有列的数据框，名为＆＃34; mutation＆＃34;。他们可能是SNP，如＆＃34; C＆gt; A＆＃34;，插入如＆＃34; + TTTAAG＆＃34;或删除像＆＃34; -CTTGA＆＃34;。例如：

**position** **mutation**
1234           C > A
1452           +TTTAAG
2734           -CTTGA

我希望R在变异列中搜索特定字符（＆＃34;＆gt;＆＃34;，＆＃34; +＆＃34;或＆＃34; - ＆＃34;）并写＆＃ 34; SNP＆＃34;，＆＃34;插入＆＃34;或＆＃34;删除＆＃34;分别进入dataframe中的一个新列，所以我希望得到以下结果：

**position** **mutation**  **mutation_type**
1234           C > A             SNP
1452           +TTTAAG         insertion
2734           -CTTGA           deletion

我试着做以下事情：

mutation_type <- rep(NA, length(df$position)))
df$mutation_type <- mutation_type #creating a new column with NAs

尝试：

while(grep(pattern = "-", df$mutation)){
  df$mutation_type <- "deletion"
}

只覆盖mutation_type列中的每个单元格。你能给我一个如何解决这个问题的建议吗？

Answer 1

使用# admin.py class UserForm(forms.ModelForm): class Meta: model = User fields = ('user_permissions',) class MyModelForm(forms.ModelForm): def __init__(self, *args, **kwargs): super(MyModelForm, self).__init__(*args, **kwargs) self.user_form = UserForm(instance=self.instance and self.instance.django_user, prefix=self.prefix) class Meta: model = MyModel class MyModelAdmin(admin.ModelAdmin): form = MyModelForm change_form_template = 'my_model_change_form.html' # my_model_change_form.html {% extends "admin/change_form.html" %} {% block field_sets %} {% for fieldset in adminform %} {% include "admin/includes/fieldset.html" %} {% endfor %} <form>{{ adminform.form.user_form }}</form> {% endblock %}和grep的解决方案：

ifelse

基于数据帧

1 个答案: