title: Removing text containing non-english character
body: <p>This is my sample dataset:</p>
  
  <pre><code>Name &lt;- c("apple firm","苹果 firm","Ãpple firm")
  Rank &lt;- c(1,2,3)
  data &lt;- data.frame(Name,Rank)
  </code></pre>
  
  <p>I would like to delete the Name containing non-English character. For this sample, only "apple firm" should stay.</p>
  
  <p>I tried to use the <code>tm</code> package, but it can only help me delete the non-english characters instead of the whole queries.</p>