Question

我有一段代码如下：

<script src="https://ajax.googleapis.com/ajax/libs/jquery/2.1.1/jquery.min.js"></script>
<div id="myDIV1" style="display: inline">
	<form action="/banque" method="POST" enctype="multipart/form-data" id="personForm" data-tiers-url="/ajax/load-cities/"><input type="hidden" name="csrfmiddlewaretoken" value="hb4WLeqHCHVS5uanq8C0hQUhKoB8WFye3kvFLJvyUraLGn2dv3NEslm1AamSosdf">  

	<table align="center">	<!--	banque_rib <div class="row" style="padding-left:  24%; padding-top: 3%"></div> -->
		<tbody><tr>	
			
			<td><select name="banque_name" placeholder="N Facture" class="form-control" required="" id="id_banque_name">
  <option value="" selected="">---------</option>

  <option value="Attijari">Attijari</option>

  <option value="SGMB">SGMB</option>

  <option value="Ts part">Ts part</option>

</select> </td>
				
			
				<td width="2%"></td>
			<td><select name="banque_rib" placeholder="N Facture" class="form-control" required="" id="id_banque_rib">
  <option value="" selected="">---------</option>

  <option value="2142">2142</option>

  <option value="-23525">-23525</option>

  <option value="892375">892375</option>

  <option value="23">23</option>

</select> </td>
				
			
				<td width="2%"></td>
			<td><span><button class="btn btn-success form-control" id="myBtn"><span class="glyphicon glyphicon-plus" aria-hidden="true"></span></button></span></td>
			<td width="10%"></td>
			<td><input id="uploadFile" placeholder="Choose File" class="form-control" disabled="disabled"></td>
			<td><div class="btn btn-primary" id="divInput"><span>importer</span>
				<input type="file" name="myfile" style=" position: absolute;top: 0;right: 0;margin: 0; padding: 0;font-size: 20px;cursor: pointer;opacity: 0;filter: alpha(opacity=0);" id="uploadBtn" required="">
			</div></td>
		</tr>
		<tr></tr>
			
	</tbody></table>
			<input type="hidden" id="num" name="numpiece" value="1">
    		
	



<br>	

<!-- Formulaire d'ajout des liiigneee <td width="10%" colspan="2">Importer la piece Justificatif</td> -->
<p>form-0-row</p><table style="border-collapse: separate;border-spacing: 15px;" id="id_forms_table">
			
			<tbody><tr><td width="5%">N P</td><td width="8%">Date d'operation</td><td width="25%">Désignation</td><td width="10%">Type tiers</td><td width="10%">Tiers</td><td width="10%">Référence de Facture</td><td width="10%">Montant debit </td><td width="10%">Montant crédit</td></tr>
 			
 		 <tr style="border:1px solid black;" id="form-0-row" class="dynamic-form">
 		 	
    		<td><div class="col-xs-1"><b><p name="np1">1</p></b></div></td>
			<td>
				<input type="text" name="form-0-dateOperation" value="2018-04-12" class="form-control" id="id_form-0-dateOperation">
				
			</td>
			<td><input type="text" name="form-0-designation" class="form-control" id="id_form-0-designation">
			</td>
			<td>
				<select name="form-0-typeTiers" class="form-control" id="id_form-0-typeTiers">
  <option value="__">__</option>

  <option value="Client">Client</option>

  <option value="Fournisseur">Fournisseur</option>

  <option value="CNSS">CNSS</option>

  <option value="Etat">Etat</option>

  <option value="Personnels">Personnels</option>

</select>
			</td>
			<td>
				<select name="form-0-tiers" class="form-control" id="id_form-0-tiers">
  <option value="CFF">CFF</option>

  <option value="rgg">rgg</option>

  <option value="zrfkgf">zrfkgf</option>

  <option value="Ts part">Ts part</option>

  <option value="ACAM">ACAM</option>

  <option value="Ts partPP">Ts partPP</option>

  <option value="ACM">ACM</option>

  <option value="egz">egz</option>

  <option value="rer">rer</option>

  <option value="ACM">ACM</option>

  <option value="ACM">ACM</option>

  <option value="CNSS">CNSS</option>

  <option value="IS">IS</option>

  <option value="IR">IR</option>

  <option value="TVA">TVA</option>

  <option value="patente">patente</option>

  <option value="Salaires">Salaires</option>

  <option value="primes">primes</option>

</select>
			</td>
			<td><select name="form-0-numfacture" class="form-control" id="id_form-0-numfacture">
  <option value="" selected="">---------</option>

  <option value="1">facture object</option>

  <option value="2">facture object</option>

  <option value="3">facture object</option>

  <option value="4">facture object</option>

</select>
			</td>
			<td><input type="number" name="form-0-montantdeb" class="form-control" id="id_form-0-montantdeb"></td>
			<td><input type="number" name="form-0-montantcred" class="form-control" id="id_form-0-montantcred"></td>
			
	</tr>

<tr>
               
            </tr>
</tbody></table>
<input type="hidden" name="form-TOTAL_FORMS" value="1" id="id_form-TOTAL_FORMS"><input type="hidden" name="form-INITIAL_FORMS" value="0" id="id_form-INITIAL_FORMS"><input type="hidden" name="form-MIN_NUM_FORMS" value="0" id="id_form-MIN_NUM_FORMS"><input type="hidden" name="form-MAX_NUM_FORMS" value="1000" id="id_form-MAX_NUM_FORMS">

	<!-- BUTTONS <td colspan="4"><a href="javascript:void(0)" class="add-row">add property</a></td> -->
	<input type="submit" name="annuler" value="Annuler" class="btn btn-danger" style="float:right ;margin: 5px; margin-right: 35px">
	<button value="" class="btn btn-success" style="float:right;margin: 5px;" onclick="">enregistrer</button>    

</form>

<input type="submit" name="ajoutligne" value="Ajouter une ligne" class="btn btn-primary" id="add-row" style="background-color: #8C1944; border-color: #8C1944; float:right;margin: 5px;" onclick="test()">
	
</div>
<script>function test(){
var dat = $("#id_forms_table tr").attr('id')
alert(dat);
}</script>

这样可行，并创建一个这样的情节：

问题在于，我的两个数据library(tidyverse) library(ggplot2) uni <- read.csv(filepath_1, header = FALSE) end_nodes <- read.csv(filepath_2, header = FALSE) dat <- data.frame(uni, end_nodes) %>% gather(var, value) ggplot(dat, aes(value, fill = var)) + geom_histogram(position="dodge", bins = 10)和uni的大小不同，为了使它们大小相同，我添加了一些虚拟0值。那么，问题是如何忽略0值，或者有没有办法在ggplot2中绘制不等大小的数据？当我最初尝试绘制它们时，我从end_nodes抱怨它们的大小不同，所以我添加了虚拟0值。此外，是否还有其他类型的图表，用于堆叠两个数据以显示分布，并查看它们之间的差异和位置（可能是data.frame或position = "stack"）？我的数据由1到8之间的整数值组成，例如geom_freqpoly，uni = [2,2,1,2,2,1,1,5,3...]。

Answer 1

您可以按行加入两个数据帧，而不是按列加入，然后使用gather。

library(tidyverse)

uni_df <- read.csv(filepath_1, header = FALSE) %>%
  mutate(var = "uni")
end_nodes_df <- read.csv(filepath_2, header = FALSE) %>%
  mutate(var = "end_nodes")

dat <- rbind(uni_df, end_nodes_df)

ggplot(dat, aes(value, fill = var)) +
  geom_histogram(position = "dodge", bins = 10)

如何用R中的ggplot2绘制不等大小的数据？

1 个答案: