Таким образом:
<script type="text/javascript">
function yourFunction(element) {
alert(element);
}
</script>
<input id="myinput" onblur="yourFunction(this)">
Или если Вы присоединяете слушателя через JavaScript (jQuery в этом примере):
var input = $('#myinput').blur(function() {
alert(this);
});
Редактирование : извините. Я неправильно читал вопрос.
Вам, вероятно, понадобится stat_function
:
library("ggplot2")
eq <- function(x) {x*x}
tmp <- data.frame(x=1:50, y=eq(1:50))
# Make plot object
p <- qplot(x, y, data=tmp, xlab="X-axis", ylab="Y-axis")
c <- stat_function(fun=eq)
print(p + c)
, и если вы действительно хотите использовать curve ()
, то есть вычисленные координаты x и y:
qplot(x, y, data=as.data.frame(curve(eq)), geom="line")